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LABEL OOOOOOOOOPNTR 001 74095?EXtCU XL BUR/TtST* 
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LABEL OOOOOOOOOLINE 00 175095?CQ*P ILE XG98RQuS|4/ CHECK AL ALGOL 



ALGOL /X098H0U 
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BURROUGHS p-5700 ALGOL COMPILER MARK XV. 3. 00 .SATURDAY, 04/05/75, Uo3 AM. 



XQ96RQU/CHECKAL 






THE CHECKAL ^ROp^M~TS M A DE UP IN M A IN OF PROCEDURE DECLARATIONS 
WITH APPROPRIATE CALLS QN THEM. EACH PROCEDURE CONCERNS ITSELF WITH 



CHECKING OUT A GlVElv ALGOL 60 CONSTRUCT. 



the work areas of the program are two single dimension a hr a ys 
called temp and ans. the elements qf the array temp are filled with 
values generated by the algol compiler and the machine* fqr various 



SYNTACTICAL CONSTRUCTS IN A LGOL. The A*«aY A NS 1$ ThEN FILLED W it H THE 

Exact bit configuration of the answers expected. 



A CALL FOR A PKCCEOuKt 1 BE EXECUTED ALSO CAUSES A CALL ON A 



"OUTIKE CALLED VERIFY. THIS KUUIINe cUMP A K E S CVN E L£MeNTS U F a RTT a T 

temp *ith those of array ans. cvn is a parameter to prucedu re verify 



TFLLUG IT HOVi MANY ELEMENTS OF THE ARRAYS TO CHECK 



IF CVN ELEM E NTb OF 1 H£ ARRAY CORRESHUN ft IN EVERY Bl 7 PUSHIUN AN 

Output line s t a t ing this procedure is q k is pkinteq on the line 



BEING CHECKED TOGETHER wlTH THE PARAGRAPH AND SUB-P AR AGR ApH NUMBER QF 



THIS CONSTRUCT IN THE EXTENDED ALGOL M A NUaL. 

SHOULD THE PROCEDURE PRODUCE A RESULT WHICH I S 8A0*t h EN THE VALuEs 



OF ALL ELEMENTS OF THE ARRAYS ANS AND TEMP ARE PRINTED OUT. IF THE 
ELEMENTS HAU COMP ARED THAT t- ACT IS AC* NUWLEU&LU BY lVn[X3 IS TRUE. 

if the element does not compare then in apqition to printing 



CVN[X] is false the exact VALUES OF TEMp[XJ AND ANScX] are prated 



GIVING visual proof of the DISCREPEnCY, 



tpis false answer can very easily be traced back to ThE consTrUcT 



10000000 T oooo 
lOOOOpOQ T 0000 



looooooo t oboo 



10000000 T oooo 
10000000 T 0000 



looooooo t oooo 



10000Q00 t oooo 
10000000 t oooo 



10000000 t oooo 

"leoooooo f 0~oW 

10000000 t oooo 



10000000 T oooo 



looooooo t owo~ 
looooooo T oooo 



PRINTER. SHOULD ANY ElEmEnt OR ELEMENTS OF THE ARRAYS NOT COMPARE THE 

uutpUT will STATE IhaT THE prUcEDURE IS BAD. W HETHER T H E pftUCEOURE IS 

ok or bad the output line always contains a description of t h e construct looooooo 



looooooo T oooo 
looooooo t oooo 



oooo 



looooooo T oooo 
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creating it. should the' error occur in say procedure pbi* the body qf 

THIS PRUCEUUKE Ptil CAN FUUND BY SEARCHING DOWN THE SEQUENCE FIEl,D" 



10000000 T 0000 
10000000 T oooo" 



OF THg LISTING FUR CAKpS UF S £ CUENCE NO AQ61"-. WITHIN THE BOqY CF 



10000QOO T 0000 



THE PROCEDURE, SINCE THE tLEMFNTS OF ARRAY TEMP ARE SEQUEnT1A|_L y 
F'ILLE0» THE PARTICULAR CONSTRUCT CQRRE SPONDInG TO CyNtX] CAN BE LOCATED 
AT THg EN D OF PRS C EpUR£ Pel THE FILL ST A TeM£NT ON A RR A Y AN* S H 0WS 



10000000 T oooo 



looooooo T oooo 
10000000 T oooo 



what exactly was expected for an answer, with this information it is 

POSSIBLE TO RAPI0L T R^N DQWn A COMPILER FaIlUNE AND SOMETIMES A 



10000000 T oooo 



HARDWARE FAILURE* 



10000000 t oooo 

lQOOOnOQ T 0Q00 



BEGIN 



10000010 T OOOO 



START OF SEGMENT ********** 



COMMENT THIS IS THE EXTENDED ALGOL MASTER PROGRAM > 
INTEGER CVN* PNO; 



10000020 T OOOO 
10000030 T OOOO 



BOOLEAN NOKi 



10000040 T OOOO 



ARRAY ANS Cl ! 50j; 
ARRAY TEMP CH503i 



10000050 T OOOO 
10000060 T 0001 



BOOLEAN ARRAY CV t 1»50 3 J 



10000070 T 0003 



ALPHA ARRAY PRQCI05 C0:i50#0*5Ji 



Y ILE OUT FMUK 1 (1Mb); 



19000080 T 0005 
lOOOOlOO T 0007 



FILE IN FDUMMY C3#i0)i 



10000090 T 0010 



procedure initialize; 

B FG I N 



lOOOOjlO t 0014 
1Q0Q0120 T 00 14 



FILL CV CM WITH QCTO*OCrO*0CT0#OCTO»OCTO»OCTO»OCTO»0CT0*0CT0» 



10000130 T 0014 



START OF SEGMENT ********** 
0CT0jOCT0»OCTO»riCTO>0CT0»OCTo»QCTO»0CT0»0CTO» 10000140 T 0016 



OCTO#OCTO*OCTO#OCTO*QCTO#OCTO»OCTO#OCTO>OCTO* 
OCTO,UClb#OCTO,oCTO,OCTO,OCTo # oCTO,OCTo#OCTO, 



QCTO»0CTQ»0cT0»OCTO»0CT0#OCT0f QCTOf OCTO»QCT O» 
QCTQ>QcTo»QcTQ#QCTQ'GCTQ> 



10000150 T ooie 
10000160 T 0016 
10000170 T 0016 



100Q0160 T 0016 



3 t s 5 LONG, NEXT S£G 
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FILL TEMP [*] WITH 0CT0#Uc T0*0cT0»0CT0#0CT0*0cT0*0CT0*0cT0*0CT0# 



10000190 T 0016 



START OF SEGMENT ********** 
QCTQ>0CTo>QCTO>0CTO>QCTQ,QCTn,0CTO,0C Tn»QCT Q± iftnnOgnn T OniA 



aCT0*Ocr0'0cT0*0cT0»acT0*Ocr0'QCTO»0cT0'DCT0» 



10000210 T 0018 



OCTO*QCTo*OCTO#OCtO#tfCTO/aCTo#QCTQ*OCTO'OCTO# 
CCTO»OCTQ*QCT0>OCT0»QCT0*QCTQfQCT0*QCT0*QCT0» 
0CT0»0CT0*0CT0^0CT0*0CT0; 



10000220 f 0018 
1Q00023Q T 00*8 



10000240 T 0018 



4 r S 50 LONG. NEXT S£G 
FILL ANS E*JWITH OCTO»QCTo*OCTO»OCTO>OCTO*PC,TQ»QCTQ*OCTo»QCTO» J0000250 T 00*8 



START OF SEGMENT ********** 
QCTO,QCTG, GOTO #QCTO,0CTO, OCT 0#0CTO,UCToTg£TO~; IOOOO26O T 0~02~0 



QCTOjQCTO»QCTO»QCTO>OCTO*QCTq,OCTO,OCTo*OCto* 



1Q00027Q T 0Q2Q 



gcto*ucto»octo#octo»octo,qcto»octo,ucto»qcto. 



10000280 7 0020 



octo*ucto*octo»octo*octo*octo#octo»octo'"octo* 
qcto>octq»qcto'QCtq»octo; 



100002^0 T 0020 
10000300 T 0020 



3 iS 50 LONG, NEXT 5 EG 



nok * false; 

CVN * 0; 



10000310 T 0020 
10000320 T 0021 



PNO «• 



10000330 T 0021 



end; 
procedure report; 



10000300. t 0021 
100003SQ t 0022 



BEGIN 



IOOOO36O 7 0022 



LABEL BOTTOM; 



integer 1; 
stream procedure head (til* nqky* proctdsa* pnq>; 
value nq«v*pnoi 



10000370 T 0022 
START OF SEGMENT ********** 
10000380 T 0000 



10000390 T 0000 
IOOOQ4OO T 0000 



BEGIN 



IOOOO4IQ T 0000 



LOCAL TU 
LABEL LI J 



10000420 T 0000 
10000^30 J 0000 



SI*FIL; DI*LOc Tl; DS*1 WDS; DI*Ti; COMMENT Di'lST WD IN RlF 
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• 



10QC0440 T 0000 



FfiR; 
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15{DS * 8 LIT" *); di*ti; 

10(0S»1 LIT " ");pS»19 LIT "TEST PROCEDURE NO* W J 



10000455 T 0001 
1Q00Q46Q t 0003 



Si^lUq PNCj; DS*3 DEC' US*4 lit " 



100004/0 T 0006 



si«.prqcidsa; qs>6 wds; 

RELEASE (FlL)JCQWNENT wWlTE (FNUK* FMHEaQ' lHEAQ); , 



10000480 T 0008 
10000490 T OGQfl 



COMMENT THE FOLLOWING CARDS NO, 491* 492' 493' 494' 495* 496' 



10000491 T 0009 



***** ARE BEING INSERTED To GET ARQUnD THE PRESENCE BIT BEING ON 
***** FOR BOTH RELEASE STATEMENTS IN PRQC» HEAO. THig CAUSES THE 



10000492 T 0009 
1Q0QO493 T 0Q09 



***** 



UNPRINTED dUT FILLED BUFFER TO BE OVeRFILLeD BEFORE IT IS 



10000494 T 0009 
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21 



***** RELEASED ; 

SI*FlLJ DI*LOC TU DSM WQs; DI*TU COMMENT DI a 1 ST WO OF B^F } 



10000495 T 0009 
1 0000^96 T 0009 
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si>lGc nokv; Sl«-5l + 7> 



1000C500 T 0010 
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IF SCa»i« THEN BEGIN DI*Ti; DS<-10 LIT " 



QS<-5 LIT "I* OK"/ 



10000510 T 0010 
1 Q0QO52Q T 0Q13 



63CDS* 1 LIT " ");42(DS*1 LjT 



>; 



1000053C T 0014 
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32 



RELEASE (FI U ); COMMENT WRIT£ (FnUK'FMOK)/ 

go to li end; 



10Q00540 t 0016 
10000550 T 0016 
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di<-ti; os«-io lit 



100C0560 T 001? 



DS*6 LIT "IS BAD M ;63CDS«-1 LIT" «j; 



41CDS* 1 LIT 



" ) ; 



10000570 T 0018 
10000580 T 0020 
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RELEASE CEIL)/ COMMENT KRITe (FNGK,F MBAO ) ' 



10000590 T 0021 



Lit 



end; 
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10000610 T 0022 
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STREAM PROCEDURE CVTRUE CFlL* I >; 
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value i; 

BEGIN 



10000630 T 0023 
10000635 T 0023 



LOCAL Ti; 



10000640 T 0024 



SI*FIL' DI*LOC TU 03*1 WD5J D I*Tl JCOMMENj DUBuFFER TUp;~ 

2Q(ps»i lit * w );os»4 ht w cv t"; si-uoc u qs*2 dec; 



10000650 T 0024 
10000660 T 002S 



D S «- 1 1 LIT «j 



TrUf:'*; 63<DS«-i LIT" »)> 20CD*>«-1 LIT" «); 



10000670 T 0C27 
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COMMENT MiHiTt CF NQK* F M.CV* I* CV [ I ] ) J RELEASE (FlL> 



END; 



STREAM PROCEDURE CVFALSe (FIL»I); 



value, i; 



BEGIN 
LOCAL Ti; 



SI*FIL*. DI'LQC Ti; DS*i" ho'S; DI«-Tl;CQMMENT pUbuffer top; 



2GCDSn LIT" »)> 0S*4 LlT M CV C"J Sl«-LOC l7 DS*2 DEC* 
PS <-ULIT"3 c FALSE"; 63(pS*LlT" » ); 2Q(pS«-t IT" w ); 



10000660 T 0031 



10000690 T 0031 
10000700 T 0031 



10000710 T 0031 



10000720 T 0031 
"1000073 T 0033 



10000740 T 0032 



10000750 t 0C33 
10000760 T 00 35 
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CQMMEinT WRITE . (FNQK'FfcCVM'.CVtl JWRELEASE C F I U > 



end; 

STREAM PROCEDURE INT (F It* i* T I* T I D » A l» A ip) ; 



VALUE I»Ti*TlD* AI# AID/ 



BEGIN 



LOCAL TjVTgJ 



s'i*fil; "oi*lqc ti; pS*l WpS; di*ti; 



35CDS+1 LIT" WYi DS*6 LlT"TEMP ["J SI*L0C I) 
pb + 2 DEC; 0S»6 LIT "3 • "* Si»LOc Ti D ; ti»di; 



DS«-1 l T T » », 



DS*6 Dt-C; COMMENT 1ST 6 DIGITS BUI LT; DI*D I -1 ; DS*2 RTUt; ' 
Sl«-LQc Ti; D S«-7 DEC*DI«-Dl-i;T2»Di;pi»T2;Si»T2;iF Sfi T H EN 



BEGIN UI*Tl;DS*l lIT "-";pl«-T2 END; DS*2 RESET; 



57CDS«-1 LIT" "); 



Release (fid comment write <fnok#f*TeMpi#)>Tempi:iJ), 



Si«-FIl; i)I*LOC Ti; DS4.1 WpS; DI*-T 1 ; 
35(US«-1 LIT " "K DS*6 LIT^ANS 1"; bI*LUC W 



pS«-2 DEC;DS«-6 LIT"] 



"; si*loc aid; Ti+pi; 



ds«-i lit " «; 



10000770 T 0039 



10000780 T 0039 
10000790 t 0039 



10000800 T OC39 



10000810 T 0039 
10000620 T 0040 



10000630 T 0040 



100008^0 T 00*1 
10000650 T 0043 



lOOOOpOO T 0045 
10000fi70 T 00*5 
10000880 T 0046 



10000890 T 0048 



100 00 900 T 0050 
10000910 T 0051 



10000920 T 0C51 
10000930 T 0052 
10000940 T 0054 



os*6 dec; di*oi-i;us*2. reset; si*loc ai; ds*7 dec;Di+di-1; 

T2»Dl;PI*T2;Sl»T2;iF SB THEN BEGIN DI«"Ti;d3*1 LIT "«•"; 



10000950 T 0056 
10000960 T 0057" 
10000970 T 0056 



D1*T2 END;0S<-2 RtbLT, 



10000980 T 0061 



5 7 ( D S - 1 LIT" •• ; ; 
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COMMENT WRITE < FnQKj- FmANS I * I * ANSC I ] ) ; RELE AS£ (FID 



eno; 



STREAM PROCEDURE OCTal (rlL,i,Tl,T2,T3,T4,T5,T6,Ty,Ta,T9,TlO*Tll, 



T12/T13/T14*T15*T»6#T17#A1,A2*A3,A4»A5*A6/ 
A7*A8,A9jA1Q*A11*A12»A13*a14*A15>A16'A17)> 



VALUE l#Ti,T2,T3,T4,T5#To,T7,T8,T9,Tl0,Tli#Tl2,Tl3#TU,Tlb, 

T 1 6» T 1 T> A 1 $ A 2> A3* A4# A S# A6* A 7* A8# A9* A I 0' A FT » A i 2* A 1 3* A f^T 



•A1$»A16/A17'J 



BEGIN 



LOCAL T I LABEL Ll'L2,L3>L4; 
Sj»FlLI 'DI»L0C T j pS»l WpSj QI«-T ; 



35C0S«-1 LIT « w)iDS*6 LIT"TEMP C";5I«"L0C I; DS«-2 DEC; 



US*6 LIT "3 



' "* SI*L0C TUSI + SI + 7'IF 'SC« W 1" THEN BEGIN 
QS»1 LIT *-";g0 TO LI ENp; DS»1 LIT "+"; 



QS»1 OEc;SI»LOc Tll;ps»l q£c; SI»LQC T12JQS4-I pec; 
Sl^LOC Tl3;c54-l DEC;Si«-lQc Tl4;0S«-l DECJi>I«-LUC T15; 

DSM 0EC*SJ.*LOC Tio; 03«"l DEc;Sl*LOC Tl7)DS*l 0EC1 

OS + 2 LIT " *";Sl+LUC T2 IS I»Sl»7j If 5C»"1* THEN BEGIN 



DS*1 LIT "-'•; GQ TO L2 END;DS«-1 LIT " + «; 



L2* SI*LOC T3;0S*t OtC*Sl*LOC T4>DS*i UECJ52CD5*i LIT" " >T 
RELEASE (FID; 



COMMENT CONTINUE OCTAl; 



SI*FlLi DIALOG T ; 0S«-1 W05; OI*T J ~~ 

35(QS»1 LIT « ");pS»6 LIT W ANS C"JSl»UOc 11 PS*2 QECJ 

0S*-6 LIT "] = « ;SI<-L0C Ai;Sl«-Sl + 7;iF bC»' , l M THEN bEGlN 

US + 1 LIT H '"JGU TU L3 tNDJU3»l LI T »*«J 

L3I SIH.OC a5j pS*! OECjSl+UOQ A6;PS»1 DEc;SI*LOC A7; 



0S«-1 UEc;Sl4- L 0C A8iDS«-l DEC;SI*LOC A9;DS*1 DEc;SI*L0C AlC; 



10000c;90 J 0061 



lOOOlQOC T 0062 
10001010 T 0062 



10001020 T 0063 



10001030 T 0063 
10001040 T 0063 



100C1050 T 0C63 
10001060 T 006T 
10001070 T 0Q63 



10001080 T 0063 



10001090 T 0064 
10001 1 00 T 0064 



lOOOlilO T 0065 



100CU20 T 0067 
10001130 T 0069 



10001140 T 0C71 



LI* Si<- L QC T5; DS*1 DEC;S1«- L 0C T6;US«-1 DEc;Sl«-LGC T7; 

us*i utosi<-Loc rsnrsirj uecjsi+luc T9)us*i ulc;si«-loct-i"ot iooousq t — WTJ 



10001160 T 0074 



100C1170 T 0076 



10001160 T 0077 
16001190 T 0078 



10001200 T 0080 



10001210 T 0081 
10001320 T 0084 



10001230 T 0C84 



10001240 T 0084 
10001250 T 0085 



10001260 T 0088 
10001270 T 0~Q9T 



10001280 T QQ91 



10001290 T 0C93 
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35 



36 

37 " 



38 
39 



40 
41 



42 
43 ~ 



44 
45 



46 
47 
•8 



49 
50 
51 
52 
53 
54 
55 
56 



DSM Utc;Sl4-LQC aii;us*i DtC;Sl*L0C A12;US«-1 DEC/ 



si*loc Ai3;os*i dec;si*loc au;ds«-i dec;si*loc ais; 

DS»1 QEc;SI*-L0C A16;QS»1 QEC;SI»LQC Al7;0S»l DEC/ 



US*-2 LIT" x«,Sl«-L0C A2> S I *S 1 + / ; IF SC = "1» THEN BEGIN 



os*i lit m -";go to m end;ds«.i lit "+ m ; 



im si«-loc A3;os»i oec;si»loc a4;ds»i pec;52(ds»i lit w *); 



RELEASE (FID 



end; 



HEAD (FNQK*NQK»PRPCI0S[FNQ»03»PN0)K0MM£NT 1ST TWO LINES PRINTED* 



IF NOK THEN GfJ TO BOTTOM; 



FOR I«-l STEP 1 UNTIL CVN 00 

IF CV[I3 THEN CVTRUECFNQKM? ELSE 



BEGIN CVf AL5E(FN0K»I)i 



octal (fnojw^ tempjij ,ci»i3»temP[i 3 , c 2 ; i 3 » 



TEMPCX3.C3l3 3#TEMP[I3,t6l3 3,TEMPCX].C9»3], 
lEMPlIJ.Ciy^l/IEhHCIj.llbMj^ltMHtn.tlfl^l* 



TEMPCl3.[2ll3]»TEMP[I].t24t3]»TEMP[n.Cfcyt33» 



TEMPLl3,£30«33*T£MPCl3.t33!33#TEMP[l3 f [36J33* 
TEMPtI3.C3yi3 3#TEMP[I].C42l3 3,TEMPtI].[«5»3], 



ANS [13, [H13*ANS CI3.C2U3*ANS tl3.C3»33* 



ANS Cl3,L6t33*ANS [ 13., [91 33# ANS U3,[i2 l 33, 
ANS[IJ.Llbl3 3*ANS[I3,[ifl:33*ANSLJJ,C21i3 3# 



ANS CI3.C"2q»33>ANSCI].[27»33»ANS[l3.E30»33i. 



ANS Cl3.c33l33#ANSCl3,[36»3J»ANScn,C39*33» 



ANS C13.t<J2*33#ANSCn»t45»3J) 



end; 



BQTT6MI INITIALIZE 

■ " ' Hi ■ " i ' i ' i . ■ . 11 , ; , 



100C1300 T 00,94 



IOOOJ3IO T 0096 
10001320 T 0097 



10001330 T 0098 



100013^0 T OlOO 
10001350 T 0101 



10001360 T 0104 



10001370 T 0104 
10001380 T 0l04 



10001390 T O1O8 



1Q001400 T 0109 
1000U10 T QUO 



1000U2Q T 0113 

10001430 T 0H5 



10001«40 T 0H5 
1000H50 T 0115 



10001 46 T 0119 



lOUOU'U T 0T2T 

IOOOI/48O T 0127 



10001490 T Oi32 
10001500 T 0~i36~ 



10001510 T 0141 



10001520 T 0146 



10001530 T — OlW 

10001540 T 0^55 



10001550 T Oi59 



IOOOI56O T 0164 
IOOOI57O t 0166 



10001580 T 0169 

10001590 T — ornr 



2< 

3 
4 

si 

6 

7 

8 

9 

10 

11 

12 

13 

14 i 

15 

16 

,7l 

18 

19 

20 ( 

21 

22 

23 ' 

24 

25 

26 1 

27 

28 

29 { 

30 

31 

32 { 

33 

34 

35 { 

36 

37 

38 i 

39 

40 

41 i 

42 

43 

44 ' 

45 

46 

48 
49 

50 I 
51 
52 

53 1 
54 
55 



• • 






8 

9 

10 
11 
12 
13 
14 
(15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 

31 r 

32 
33 



34 

35 
36 
37 ~ 
38 
39 



40 
41 
42 

43 
44 
45 



46 
•7 
«8 
49 
50 
51 
52 
53 



56 
56 



6 T S 173 LONG, NEXT S£G 2 



PROCEDURE VERIFY; 
BEGIN 



10001600 T 0022 
IQQQ lftl Q T 0022 



INTEGER Hi 



LABEL Li; 



FOR 11*1 STEP 1 UNTIL CVN DC 



IF TEMP tH3» ANS til] THEN CV CIU*TRUe ELSE CV C H>F*tSF 
FOR Il»l STEP 1 UNTIL CVN pp 



IF CV C II ] THEN ELSE BEGIN NOK*F ALSE/GO TO LI END; 



NQK*TRUe; 
Ll» REPORT 



END. 



BEGIN 



STREAM PRQCEUUHE OCTF ILL ( FP ARR AY 3 { 



BEGIN 



LOCAL Ti; 



si«-fparray; 

di*luc ti; ds ♦ 1 ads; dI «■ Tii 



QS-46 LIT "l.O.C ALGOL MASTER TEST PROCEDURES 

oi*loc ti; os *■ i wds; oi * ti; 



CS*48 LIT "2.«»4 COMMENT 



OI+LQC T1J OS *■ 1 WQ'S; 01 «• TI J 



CS + 48 LIT "2,5 IDENTIFIER^ 

Ol-LUC Ti; OS «- i wcs; — d I «• "T 1 ; 



OS + 46 LIT "2.6 



NUMBERS 



ui*loc in os «• 1 wos; 01 * T1J 

DS«-48 LIT "2.7 STRINGS 



n ; 



••; 



10001620 t OQ22 
START OF SEGMENT ********** 

— 10001^30 T 0000 

10001640 J 0000 
10001650 T 0001 

10C0166Q T 0010 



10001670 T 0011 



10001680 T 0016 
1000169Q t 0017 



10001710 T 0023 



10001720 T 0000 
10001730 T 0000 



1000174C T 0000 



10001750 T 0000 
100C1760 T 0001 



10001770 T 0007 
10001780 T O06T 
10001790 T 0014 



10Q01800 T 0015 



10001810 T 0021 
10001H20 T 0023 



10001830 T 0026 



START OF SEGMENT ********** 8 



r 
2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
16 
16 
17 



• 



10001700 t 0018 
7 T S 21 LONG, NEXT SEG 2~ 
10001705 T 0022 



20 { 

21 

22 

23< 

24 
25 
26 [ 
27 
28 
29 I 
30 
31 

"i 

33 

34 

35 ( 

36 

37 

38 { 

39 



40 



42 
43 
44 { 

46 



46 
47 < 
48 
49 
50 ( 
51 
52 
53 i 
54 



M ; 



10001840 T 0029 



n 

2 
3 

4 
5 
6 



9 
10 
11 
12 
13 
14 
15 



16 
17 
18 
19 



20 
21 



22 
23 
24 
26 



26 
27 
28 
29 



10 
31 
32 
33 



34 
35 



36 

37 " 

38 

39 

40 

41 

42 



43 



46 
46 
47 
»8 



49 
50 



51 
52 
53 
54 



55 
56 



ui<-ioc ti; us «• 1 kds; 01 *■ ti; 
DS*4e lit "3.1 variables — 



?** 



DI»L0C T.1I OS * 1 WDS* 01 > Ti* 



CS^e LIT "3*2 



PARTIAL WOHD DESIGNATORS 



••; 



Dl*LOC TU OS «• 1 WOS; 01 * Ti; 
DS-48 LIT "3.3 FUNCTION DESIGNATORS 



Q1±XM Hi ^S » 4 * C S* CI £ ti; 



DS«-48 LIT "33.4 STANDARD FUNCTIONS 



DI*LOC Ti; OS «■ 1 hOSi DI «■ Ti; 
CS«-^8 LIT "3. 3.5 TRANSFER FUNCTIONS 



"; 



di«-loc n; os «- i hos; oi «■ ti* 



DS<-<*8 LIT "3.4.3.2GENERAL ARITHMETIC EXPRESSIONS* IF CLAU S E " *~ 
OI+LOC Ti; OS *■ 1 WDS* DI «■ T 1 * 



0S*48 LIT "3,4.4. ARITHMETIC OPERATOR* + 



DI^-LOC Ti; US «- 1 WqS* DI «■ T 1 ; 
_DSjMQ LIT "3.4.4. IARUHmETIC OPERATOR* - 



DIALOG t t; OS * 1 WDSI CI ♦ Tl* 
D a o / f 8 LIT M 3.«.4.1ARITHMETIC OPERATOR, x 



OI+LOC Tl* OS ♦ 1 WDS* DI * Tl* 



DS*48 LIT "3.4.4, iaRithmetic operator* / 



UI + LUC Tl* DS «- 1 wus* DI «■ Hi 
DS«vi»8 LIT "3.4.4. 1ARITHMETIC OPERATOR, DIV 



DI*LQC Tl;* OS * 1 WQS* 01 * Tl* 



DS*4fl LI' "3.4,4.1ARITHMtriC OPERATOR, MOD 

QI«-LOC Ti; OS «- 1 WDS* DI «■ Til 



DS*«8 LIT "3.4.4,1ARITHMETIC OPERATOR* * 

UI*LQC Tl) — US «■ i wos* — Ul 4. I i; 



"I 



QS + 48 LIT "3,4.4.2ARITmMETIC EXPRESSION TYPES 



"I 



QI«-LQC TU OS * 1 WOS* 01 «• Tl* 
CS<-48 LIT "3.4.b PRECEDENCE OF ARITHMETIC OPERATORS 



10001850 j 0035 



10001860 T 0036 
10001870 T 0042 



10001880 T 00^3 



10001890 T 0049 
10001900 T 0050 



lnonlolo t on56 



10001920 T 0057 



10001930 T 0063 
10001940 T 0Q64 



10001950 T 0070 



ICOOI96C T 0071 
lOOQlpfQ T 0Q77 



10001980 T 0076 



10001990 T 0084 
1Q002Q00 t 0085 



10002010 T 0091 



10002020 T 0092 
1Q002q3o y 0Q9g 



10002040 T 0099 



10002050 T 0105 
10002060 T 0106 



10002Q70 T 0112 
10002080 T — OTTT 



10002090 T 0H9 



10002100 T 0120 
10002UO T 0U6 



10002120 T 0127 



10002130 T 0133 

1000214Q T 0T3~4" 



T* 



• • 



h- 



1 

2 
3 
4 
E 
6 
/ 
6 
9 
10 
11 
12 
13 
14 

h 5 



16 

17 

IB 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 



37 
38 
39 



40 
41 
»2 
43* 



45 
46 
»7 
48 



•9 

SO 



51 
52 
S3 
54 



55 
56 

57 



oi*lqc ti; us ♦• i «us; ji ♦• ti; 



DS*48 LIT "3.4.6 NUMERICAL LIMITATIONS 

DIH.QC ti; os » i wos; oi » ti; 



0S<-48 lIT "3.5.3.2GENERAL tiOuLrlAN ExP* IF ClAUSE 



di*lqc ti; us * i wos; oi * u; 

CS-48 LIT "3.5.5.1RELATI0NAL QPERATQ R » < 



UI«-LUC TU US «• 1 wds; DI «- tx; 



D5«-48 LIT "3.5.5. iRELATIONAL OPERATOR** 



ui«-LUc T i ; os «■ l wqs; oi * Ti; 

0,S<-48 t. I T "I.^O.tH l -T l ATiGNA I, 0P£RAT Q R,s 



oi*lgc ti; us «- i wos; oi * tx; 



DS«-48 LIT "3.5,b.lRELAl IONAL OP£RaTOR*> 

di+lcjc ti; ds «■ i wos; di * ti; 



DS*48 LIT "3.5.5. 1RELATI0NAL OPERATOR** 



di*loc Ti; ds «- l wus; DI «■ Ti; 
DS*48 LIT "a.S.b.lRELAriONAt OPERATOR*/ 



oi*lqc ti; ds * i wus; di * Ti; 



DS*a8 LIT w 3,5.5.2L0giCaL OPERATOR* not — " — 
ui»loc ti; us <■ i wus; di «■ ti; 



DS*48 LIT "3.5.5.2L0GICAL OPERATOR* AND 



di*luc ti; us <■ x wos; di •■ ti; 

D S + 48 t TT M 3.5.5.?L.nGTCai nPLRATClH. Hff 



di*loc n; os «• i wos; oi «• ti; 



DS*48 LIT "3.5.5.2LDGICAL OPERATOR* IMP. 

oi+LOc Ti; us «• i wos; oi * Ti; 



0S*48 LIT "3.5.3.2L0GICAL OPERATOR* EOV 

oi>loo ti; — us «- l wos; — orrrrr 



DS«-48 LIT "3.6.3. 1SIMPLE DESJGNATIQNAL EXPRESSION 



Dl*LOC Tii US *, 1 HQSt di * tw 
0S + 48 LIT ' *3.6.i.gGENERAL o£SlGN'A ; T iON A L ' EXpr£5SiUN 



«; 



m ; 



-5X 



"; 



») 



~*T 



"l 



♦♦; 



10002150 T 0140 



10002i60 T 0141 
10002170 T 0147 



10002i«0 j 0i*»8 



10002190 T 0i54 
10002200 T 0155 



10002210 t 0161 



10002220 T 0i62 



10002230 T 0i68 
10002240 T 0j69 



10002250 T 0i75 



10002260 T 0176 
10002270 T 0182 



10002280 T Oi83 



10002290 T 0189 
10002300 T °i90 



10002310 T 0196 



10002320 T 0l97 
10002330 T 0203 



10002340 T 0204 



10002350 T 0210 



10002360 T 021, 1 



10002370 T 0217 



10002380 T 0218 
10002390 T 0224 



1QQ024Q0 T 0225 



10002^10 1 0T3T 
10002420 j 0232 



10Q0343Q T 0238 

10002440 T 0239 



46 
47 I 
48 
49 
50 i 
51 
52 
53 1 
54 
55 
56 ' 
57 



> 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



13 
14 
15 
16 
17 
IS 



19 

20 



21 
22 



23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 



43 
44 



45 
46 
47 

18 



49 

50 



51 
52 



53 
54 



55 
56 

57 



ui«-luc ti; US ♦ 1 WDSI DI «• ti; 



DS«-^8 LIT "3.6.4 SUBSCRIPT EXP OF SWITCH DESIGNATOR 
DT»i,QC TH OS '» l wns» pi » ti i 



"i 



DS«-48 LIT "4.1 



COMPOUND STATEMENT 



oi*loc Tii os «■ l wos; 01 «• U; 

0S-48 LIT "4.1 8LCCK & 5.0,2 DECLARATION 



DIALOG Tii OS ♦ 1 W'bS) 01 «• Ti; 



DS*48 LIT -4.2 ASSIGNMENT STATEMENT 
OI»LQC Tjj DS «• i WDS; DI ♦ Tii 



DS«-48 LIT "4.3 



GO TO STATEMENT 



DI+LOC Tii DS * 1 WOSi DI * Til 
0S»48 LIT W «U4 DUMMY STATEMENT 



QI»LQC Tii OS «• 1 WQSI nl <• Tii 



DS«-48 LIT «4,5,3,1IF STATEMENT 



DI*LOC Tii OS > I WOSi DI * Tii 
DS<-48 LIT "4.5.3.2IF - ELSE STATEMENT 



Oi#LOX Til DS «- i WOSI DI * Til 

us»n8 li i "irrgrTrrrr - huh s i a i emen i 



DI*-L0C Til OS «• 1 WQSi 01 <- Tii 



DS«-48 LIT M 4.6#4.1FQR ARITH EXP ELEMENT 



UTTUK Ti; OS * 1 WDsi Ol «■ Tii 

CS*48 LIT "4.6.4.2F0R STEP-UNTIL ELEMENT 



OI*LOC Til DS «• l WDSI DI * Til 



0S«-48 LIT "4.6.4.3F0R WHILE ELEMENT 



Dl*LOC Tii OS * i WOSi Ol «• Tii 
DS»48 LIT w 4.6.4t4F0R STEP-XHILE ELEMENT 



Di'*LQC Tii OS * 1 WOSi DI «■ Tii 



0S*48 LIT "4.6,5 FOR CQNTRQLLfD VARjABlE 

... 

DI * Ti; 



Ol»LDC MJ DS ■, », 1 Wl 



OS + 48 LIT "4.6.6 GO TO INTO FOR 



"i 



«i 



"i 



"i 



"i 



"; 



"l 



"i 



^r 



10002450 T 0245 



10002460 T 0246 
10002470 t 02*52 



10002480 T 0253 



10002490 T 0259 
JQ002500 T 0260 



10002510 T 0266 



10002520 T 0267 
10002530 T 0273 



10002540 T 0274 



100025*0 T 0280 
10002560 T 0?81 



10002S70 T 0?87 



10002580 T 0288 



10002590 T 0294 
10002600 T 0295 



10002610 T 0301 



lOOC^G T D7TT2- 

10002630 T 0308 



10002640 T 0309 
1000^650 T 0~3T5" 
10002660 T 0316 



100026^0 T 0322 



10002 6 80 T 0323 



10002690 T 0329 
10002700 T 0330 



10002710 r 0336 



19»02720 T 5W 
10002730 T 0343 



10002740 T 0344 



3 
4 
5< 

6 

7 



# • 



>r 



Si 
E 

O 

Q 

to ' 
Q 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

|15_ 

JIB 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 



30 

31 " 

32 

33 

34 

35 

36 



37 
38 



40 
41 
42 
43 



46 
«6 
47 
48 



49 
JO 



51 
52 
53 
54 
55 
56 



di«-luc ti; us *• i wos; oi ♦• Ti* 



DS«-48 LIT "4.7.3.1CALL BY VALUE 

di»loc Ti; us » l wos* pi » ti; 



DS«-48 LIT "a. 7. J.2CALL 3Y NAME 



DI*LQC TI* OS «• 1 WQS; 01 «• Tl* 
DS»48 LIT "4,6.2. 3READ STATEMENT 



DI«-LQc Ti; OS «- 1 Wos* DI * Ti; 



DS*48 LIT "4.8.3.3WRITE STATEMENT 

DI«-L0C Ti; DS «• 1 wos* 01 ♦ TI* 



CS«-48 LIT "4.8.4.3RELEASE STATEMENT 

DIALOG Ti; OS «• 1 WD3* DI <• Ti; 
CS«-48 LIT "4.9.3 FILL STATEMENT 



DI*L0C Tl* 05 *- 1 WQ3> Ql «• U; 



DS«-48 LIT "5.0,2 OELCLARAT IONS 
01»LQC Ti; OS <• 1 WDS* 01 » Tl* 



DS«-48 LIT "5.1 



TYPE DECLaKaTiON 



oi*loc Ti; os * i wds; d! * Ti* 

nS»Afl LIT " 5. 2.3.1SAVF A RRA Y 



oi«-loc TI* DS «■ 1 WQS* 01 «• TI* 



DS«-48 LIT "5.2.3.2QWN ARRAY 

DIALOG TI* DS * 1 WOS* 01 * TI* 



DS«-48 LIT "5.2.3.3TYPE ARRAY 



0I*LQC TI* OS «- 1 WOS* DI ♦ TI* 
05*^8 LIT "5,2.4 80UN0 PAIR LIST 



01«-LQC TI* DS *■ 1 WDS* DI * TI* 



DS«-48 LIT "5,3,3 SwITCh DECLARATION 
OI+lQC TI* OS t * WOS* 01 » TI* 



ds«-48 lit "5, 3. a switch list expression 



OI*LOC TI* DS * i WOS* 01 ♦ Tl* 
DS+48 LIT "5.3.5 SWITCH SCOPE 



0I*LQC Tl* OS «■ 1 WDS* DI «■ Tl* 



"* 



"; 



"* 



"* 






"* 



"* 



10002750 T 0350 



10QQ276Q T 0351 
1QQ0277Q T 0357 



10002780 J °358 



10002790 T 0364 
1 02 8 00 T 0365 



10002810 T 03/1 



10002820 T 0372 
1Q0Q2b30 T 0378 



10002840 T 0379 



10002850 T 0385 
10002860 T 0386 



10002870 T 0392 



10002380 T 0393 
10002000 T 0390 



10002900 T 0400 



10002910 T 0406 
I0fl0?9?0 T 040-7- 



10002<530 T 0413 



10002940 T 0414 
10002950 T 0420 



10002960 T 0<*2l 



10002970 T 0427 
10002980 T 0428 



10002990 T 0434 



10003000 T 0435 
10003010 T 0441 



n • 
t 



10003020 T 0442 



"* 



10003030 T 0448 
1QQQ304Q T Q449 



10003050 T 0455 



40 

4,1 

42 

43 

44 4 

45 

46 

47 < 

48 

49 

50 ( 

51 

52 

53 1 

54 

55 

56 { 

57 



h 



4 
S 

e 

7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 



24 
26 



26 

27 



28 
29 
30 

31 " 



32 
33 



34 
35 
36 
37 " 



i 38 
39 
40 
41 
42 
43* 
44 
46 
46 
47 
•8 



49 

50 



51 
52 
53 
54 



55 
56 



DS*48 LIT "5.4 DEFINE DECLARATION 

DiH.oe Ti; OS * i wds; dI * Ti; 

DS»48 LIT "5,5 LABEL DECLARATION 



UI*LOC T1J DS «■ 1 WDS; DI * Ti; 



DS«-48 LIT "5.6.3.1FILE BUFFEH PART 

oi»loc ti; qs » 1 wds; di » ti; 



DS«-48 LIT "5.6.3,2FILE 1-0 UNIT CONTROL 



DI*LQC Hi OS «■ 1 WDS; DI * Til 
OS— a LIT w 5.6.3#3FlL£ niSPOSlTTQN 



di*-ldc Ti; ds «- 1 wds; di *■ Ti; 



05*48 LIT "5.6,3.4FILE BLOCKING 
OI*-LOC Tlj DS » 1 wps; PI » Ti; 



CS«"48 LIT "5.6.J#SFILE END-OF-FILE 

di*loc Ti; ds «■ 1 -wds; Di * TlT 

0S + 48 LIT "5,6«3.6FllE SAVE FACTOR 

di*loc ti; ds «• 1 wds; di ♦ ti; 



DS«-48 LIT "5t6.3,7FIL£ REVERSE 



OI»LOC Ti; QS «■ 1 Wps; pi <■ Ti; 



DS»48 LIT "5.7,3.1FaRMAT A PHRASE IN 



di*loc ti; ds «■ 1 was; di *■ n; 

DS»48 LIT "5,7,3, 1FQRMAT Q PHRASE IN __ 



dialog ti; os *■ 1 wds; di * ti; 



DS«-48 LIT "5,7,3, FORMAT E PHRASE IN 

oi*-lqc ti; os » 1 wps; pi ♦ ti; 



DS«-48 LIT "5,7,3. 1F0RMAT F PhRASE IN 

DIH.OC TU OS * I WDSi Di «• Tl! 
0S»48 LIT tt 5,7,3.lFQRMAT I PHRASE IN 



oi«-lqc ti; os «■ 1 wds; DI «• ti; 



0SM8 Lit H 5,7,3,lF0RMAT L PHHASE IN ~ 

0I«-L0C TU OS » 1 WQSI DI » TlJ 



DS*48 LIT "5.7.3.1F0RMAT PhRASE IN 



"; 



"; 



_!LL 



"; 



M ; 



••; 



~*T 



10003060 T 0^56 



10003070 T 0462 
10003080 f 0463 



10003Q90 T 0469 



100Q3i00 T 0470 
10003110 T 0476 



10003120 T 0477 



i0003i30 T 0483 
10003140 T 0484 



10003150 T 0490 



10003160 T 0491 
10003170 T 0497 



10003180 T 0498 



10003190 T 0504 
16003200 T 0505 



10003210 j 0511 



10003220 T 0512 
10003230 T 0518 



10003240 T 0519 



10003250 T 0525 
10003260 T 0526 



10003270 T 0532 



10003280 T 0533 
10003290 T 0539 



10003300 t 0540 



10003310 T 0546" 
10003320 T 0547 



10003330 j 0553 
10003340 T. 0554 
10003350 T 056.0 



10003360 t 0561 



T< 



2 
3 

4 
5 

6 

7 

8 

9 
10 
11 
12 
13 
14 I 
15 
16 
17 I 
18 
19 
20 * 
21 
22 



23 ! 
24 
25 
26 f 
27 
28 
29 I 
30 



31 

32 ' 

33 

34 

35 ( 

36 

37 

38 I 

39 

40 

4, < 

42 

43 

44 ' 

45 



46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



ffl 



JJ 



• 



h 



9 
10 
11 
12 
13 
14 



16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 

33 

34 



35 
36 

37 " 
38 



40 
41 
42 
43 



45 
«6 
47 
48 



49 
50 
51 
52 



S3 



55 

sa 



di«-lgc ti; os «- 1 wosi DI «• u; 



DS*48 LIT M 5.7,3*lF0RMAT X PHRASE IN 
DI»L0C Til US <■ 1 WQS; DI » Til 



DS + 48 LIT "5.Z.3. jFQRmAT A PHRASE QuT 

di*loc tii os * i wosi DI «■ tu 

0S»48 LIT "5.7.3.3FQRMAT p PHRASE OUT 



DI*LOC Ti; DS «- 1 wds; DI ♦ Tli 



D5*48 LIT "5.7.3.3f"0RMAT £ PHRASE OUT 
DI+LQC Tli OS «• 1 WQSI QI » TtJ 



DS«-48 LIT "5.7-.3.3FQRMAT F PHRASE OUT 



di*loc ti; os «• i wos; DI * ti; 

QS»48 LIT "5.7.3.3FQRMAT I PHRASE OUT 



di«-luc tii DS «• a wds; 01 «• ti; 



0S«-46 LIT M 5.7,3#3FQRMAT L PHRASE OUT 
DI*LQC TI j DS » 1 WQSI Jj + TW 



DS«-48 LIT "5./.3.3F0RMAT Q PHRASE OUT 



DI*L0C Tli OS «• 1 WDs* DI ♦ Til 
DS«-48 LIT "5.7.3.3FQRMAT X PHRASE OUT 



DI*LQC Tli OS «■ 1 wus; di * Ti; 



0S*48 LIT "5.8,3 LIST DECLARATION 
DI*LQC Tli OS «■ X WOSI pi » TU 



DS*48 LIT "5.9.3 FORWARD REFERENCE DECLARATION 



DI*LOC Til OS.* 1 WDSI DI * Tli 
0S + 48 LIT "5.1.0.4MQNITQR ^ 



DI*LOC Ti; DS «• 1 WDSI DI * Til 



0S*48 LIT "5.1.0.5DUMP 
OI»LOC Til DS » 1 WDSI DI » TU 



DS + 48 HT rt 5.U.3.1pRaCEDURE DECLARATION (HEADING) 



DI*LUC Ti; OS * 1 WOSI DI * Til 
08*48 HT w 5,12.3,1STR£aM VALUE PART 



DIALOG Tli OS «• 1 WQSi DI * Tli 



"} 



"I 



"i 



n • 



"I 



10003370 T 0567 



10003380 T 0568 
1000339Q T 0574 



10003400 T 0575 



10003410 T 0581 
10003420 T 0582 



10003a30 T 0588 



10003440 T 0589 
10003450 T 0595 



10003460 T 0596 



10003470 T 0602 
10003480 T 0603 



10003490 T 0609 



10003500 T 0610 
10003510 T 0616 



10003520 T 0617 



10003530 T 0623 
10003540 T 0624 



10003550 T 0630 



10003560 T 0631 
10003570 T 0637 



10003580 T 0638 



10003590 T 0644 
10003600 T 0645 



10003610 T 0651 



10003620 t 0652 
10003630 T 0658 



10003640 T 0659 
10003650 t 06~55~ 
10003660 T 0666 



10003670 T 0672 



1 
2 
3 
4 
5 

6 

7 

8 ! 

9 

10 

11 I 

12 



jj 



DS*48 LIT m 5.12.3.2STReaM DtCLAHATION 



10003680 T 0673 



O 

Q 



oi«-loc ti; ds * i wos; di *■ lit 

2 ■ 

3 0S*48 LIT "S.12.5.3SET ADDRESS STATEMENT "; 


1000*3690 T 
10003700 T 


0679 
0680 


4 

5 ci+toc Ti; cs «• l wds; oi *■ ti; 

6 


10003710 T 


i 

0686 


7 DS<*48 LIT M 5.l2,5,45TQRE ADDRESS STATEMENT »} 
9 DI*LOC Tj; OS «• 1 WDSi DI * Hi 


10003720 T 
10003730 T 


:06ff . : i 

• 

, 0693 ' . t 


10 

» DS*48 LIT "5.12.5.5RECALL ADDRESS STATEMENT "; 

12 


10003740 T 


i 

0694 i 

i 


•3 DI*LUC Ti; DS «■ I WDS* DI * TW 

< DS*48 LIT "5.12.5,6SKIP ADDRESS STATEMENT »; 


10003750 T 
10003760 T 


0700 
0701 


16 

» di*loc"Ti; ds * l wds; di «• Ti; 

18 


10003770 t 


1 
0707 i 

1 


is DS*48 LIT "5.12.6.3TRANSFER WORDS »; 

21 oi+lqc n; ds «• i wds; di ♦ ti; 


10003780 t 
10003790 T 


708 

2 

0714 2 


22 

a DS + 48 LIT "5 . 12 ,6 , 4TR ANSFER CHARACTERS •• ; 

24 


10003800 T 


2 

0715 2 

2 


ffi di*loc ti; ds *■ i wos; di ♦ ti; 

26y : , 

" DS*48 LIT M 5.12.6,5INPUT CONVERT n t 


10003810 T 
10003820 T 


0721 2 

2 

0722 2 


28 

29 DI*LC)C Ti; OS «• 1 W[)S; Ql «■ Ti; 

30 


10003830 T 


2 

0728 2 

3 


3 ' DS*48 LIT "5.12.6.60UTPUT CONVERT "J 

» di*loc ti; os * i wds; di * ti; 


10003840 j 
10003850 T 


0729 3 

3 

0735 -3 


34 

» DS«-48 LIT "5.12.6.7TRANSFER AND ADD "; 

36 


10003860 T 


3 

0736 3 

3 


» dihuc n; ds * i wds; DI * T1J 

38 

» DS«-48 LIT m 5.12,6,8TRANSFER C H ARACTER PORTIONS "1 


100038/0 t 
10003860 T 


0742 3 

3 

0743 3 


40 

* 1 di*loc ti; ds «■ i wds; di ♦ Ti; 

42 


10003890 T 


41 

0749 4 

4 


43 DS*48 LIT "5.12.6.9LITERAL CHARACTERS «; 

44 ' ■■ 

«.:': di«-loc ti; DS ♦ t wds; DI «- Ti; 


10003900 T 
10003910 T 


0750 4 

4- 

0756 4 


46 

» DS«-48 LIT ,, 5tl2.6.lOLITERAL BITS '•; 

18 


10003920 T 


4( 

7 57 

41 


M di*loc ti; os * i wos; di * Ti; 

50 

61 0S*48 LIT -5.12.? STREAM GO TO STATEMENT *; 


i0003930 T 
10003940 T 


0763 4< 

0764 s 


32 

" dialog ti; ds *• i wds; di «■ ti; 

54 


10003950 T 


0770 k 

54 


» 08*48 LIT "5«l2»e SKIP BIT STATEMENT * ; 

3 :,j- oincc hi os> i wos; pi* ti; , ' 


10003960 T 
100039>0:f 


0771 K 



DS«-48 LIT "5.12.9 STREAM TALLY STATEMENT 



10003980 T 0778 



>T 



i 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 

hs 
,." 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

50 

31 " 

32 

33 

34 

35 



36 

37 " 



38 
39 



40 
41 
♦2 



45 
46 
47 
«8 
•9 
50 
51 
52 
53 
54 
56 
M 



ui«-loc ti; ds «■ i wos; di ♦• n; 



DS«-48 LIT "5.12.10 STREAM NE5>T STATEMENT 

di»loc Ti; ps » i wds; DI «■ ti; 



DS*48 LIT "5.12.10. 3JLMP QUI STATEMENT 



di«-ioc ti; os «• i wds; di «• ti; 

QS»48 LIT "5.12,11 STREAM RELEASE STATEMENT 



oi*loc m ds ♦ i wos; oi «■ tjj 



DS*48 LIT "5,12.12 COMPOUND STREAM STATEMENT 

oi«-loc ti; os «• i wos; oi *■ ti; 



DS«-48 LIT "5.12.13.4S0URCE WITH LITERAL 
OI*LQC Ti; ps <- l Wos; QI «• T l ; 



DS«-48 LIT "5.12.13.5SQURCE WITH DESTINATION 



di«-loc ti> ds «■ i wds; di «• n; 

DS + 48 LIT "5.12.13.6SQURCE BIT 



di*lqc ti; ds «■ i wos; 01 «■ ti; 



DS«-48 LIT "5. 12. 13. /TOGGLE 
Ol+LQC Ti; DS <• 1 wps; DI «• Ti; 



DS*48 LIT "5.12.13.8SQURCE FOR ALPHA 



ui«-loc ti; ds «- i wds; oi *■ ti; 

DS«-48 LIT "4.6.4 FOR LIST ELEMENTS 



oi*loc ti; os * i wos; di * ti; 



CS«-48 LIT "3.5.6 PRECEDENCE Of lOgICAL UPLHA T oHS 

dialog ti; os <• i wps; di *■ ti; 



CS*48 LIT "4.3 



GO TO STATEMENT (PROCEDURES) 



di«-loc ti; ds «■ i wos; di ♦■ ti; 

0S + 48 LIT "4.3 GO TO STATEMENT (SWITCHES) 



oi*loc ti; os ♦ l wos; oi * ti; 

0S*48 LIT "5.11.3.2PK0CEDURE BODY VARIATIONS 



oi*lqc ti; os «■ i wds; di «• ti; 



0S*48 LIT "5#U«3.2HECURSIVE PROCEDURES 



DIALOG Ti; OS «■ i wds; oi «• Ti; 



"; 



"; 



"; 



10003990 T 0784 



10004000 T 0785 
10004Q10 t 0791 



10004020 T 0792 



10004030 T 0798 
10004040 T 0/99 



10004Q50 f 0305 



10004060 T 0806 
18004Q70 T 0812 



10004080 T 0813 
10004090 T 0819 



10004100 T 0820 



100C4HC T 0826 
10004120 T 0827 



10004JJO T 0833 



I000<*i40 T 0834 
10004150 T 0840 



10004160 T 0841 



10004i70 T 0847 
10004180 T 0848 



10004190 J 0854 



10004200 T 0855 



10004210 T 0861 



10004220 f 0862 



10004230 T 0868 
10004240 T 0869 



10004250 T °875 



10004260 T 0876 
10 QQ4 27Q T 0882 



10004280 T 0883 



10004290 T 0889 



< 



45 

46 

47 

48 

49 

50 ! 

51 

52 

53 ' 

54 

55 

56 * 

5? 



10 

11 



12 
13 
14 
IS 



16 
17 
18 

19 
20 



22 
23 



24 
26 



to 
Q 



26 
27 
26 
29 
JO 
31 
32 
33 



34 

35 



36 

37" 



38 
39 

40 
41 

:;- 

«4 

45 
46 
47 
48 



49 
SO 
51 
52 
S3 
54 
55 
56 



DS + 48 LIT "5.11,4 TYPED PROCEDURE 

oi*-loc n; os * 1 wds; di «■ ti; 

DS-48 LIT "5.11 A WEB OF PROCEDURE CALLS 



"; 



10004300 T 0890 



*; 



10004310 t 0096 
10004320 t 0897 



DI'LUC Ti; OS f 1 wqs; oi * Ti; 
0S«-48 LIT "5.12.3.1STREAM CALL BY' ADDRESS 
Pl+LOC TIJ PS «• 1 WDS; 01 » Til 



10004330 T 0903 



100043*0 t 0904 
10004350 T 0910 



CS«-48 LIT "5.7 



FORMAT DECLARATIONS 



10004360 T 0911 



oi*loc ti ; ds *■ 1 wos; di ♦ tu 

DS + 48 LIT "5.12.12 COMPOUND STREAM STATEMENT 



10004361 T 0917 
U0Q4362 T 091ft 



end; 



100043/0 J 0924 



FORMAT 8LCX12G); 



10004 375 T 0924 ~ 
START OF SEGMENT ********** 
9 T S a LONG, NEXT bEG 



OCTFILL(PROCIDS); 



HRIT£(FNOK*BL)J COMMENT TO ESTABLISH SINGLE SPACING; 

cvn*o; pnq«-q; verify 



10004380 T 0924 
3,0004385 T 0926 



10004390 T 0929 



end; 



BEGIN 



10004400 t 0930 
8 tS f32 LONG, NEXT SEG 
1000441C T 0024 



PROCEDURE Pi; 



10010C10 T 0024 
START OF SEGMENT ********** \Q 



CCMMENT 2,4,4 LEGITIMATE USE OF COMMENT; 



10010020 T 0000 



BEGIN 



BEGIN TEMP Cl]»l; BEGIN TemPC2j»2j TEMPC3j»3 E N p; 
BEGIN END 



10010030 T 0000 
10010Q35 T 0000 



TW 



BEGIN 



100100*0 T 0005 

tO0i0o50 t ooot 

10010Q60 T 0005 



COMMENT TEMP [1W7; 



TEMP £43*4; 



COMMENT BEGIN TEMP [23*77; 



10010070 T 0005 
10010080 T 0005 
1001.0090 T Q007 



BEGIN 



10010100 T 0007 



? 
2 

3 

4 

5 

6 
7 
8 



10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 i 

24 

25 

26 I 

27 

2S 

29 ' 

30 



4 

i 

i 



31 
32 
33 
34 

35 ' 

36 

37 

3a 

39 

40 
41 
42 
43 
44 



45 
46 

47 

48 

49 

50 

51 

52 

53 ' 

54 

55 

56' 

57 



e 



h 



TEMP [5]*5* 



10010J10 T 0007 



COMMENT <»,xi«.()CJ"GO TO L END WHILE ELSE 
UNTIL * array; 



10010120 T 0008 
10010130 T 0008 



TEMP [6]«-6 



10010140 T 0008 



end; 

BEGIN 



10010150 T 0009 
10010170 T 0010 



comment; 



10010180 T OQlO 



END 
END; 



10010190 T 0010 
10010210 T ooin 



CVN4-6; PHQ + li FILL ANSC*3 WITH OCTl* 0CT2* 0CT3* QCT4, QCT5* 



10010230 T 0010 



0CT6 ; 



START OF SEGMENT ********** 11 
10010340 T 0013 



li tS 



6 LONG* NEXT SfG 



10 



VERIFY 

end; 



10010250 T 0013 
10010255 T 0013 



PROCEDURE P2i COMMENT 2.5 LEGITIMATE IDENTIFIERS; 



10020010 T 0014 



BEGIN 



LABEL EXIT* GUOTOOEXIT; 



10020020 T 0014 
10020030 T 0014 



START OF SEGMENT ********** 12 



BOOLEAN Bl*NOTT»T»Y#TAN0Y#B2; ~ 

INTEGER I'll'FQRQU, IQSTEPQIUNT ILOIQO* 



10020040 T 0000 
10020050 T 0000 



ABCDEFGH I jKLMNUPQRSTUVWXYZQi 23456789 A1B2C3D4E5F6G7H8 I 0J1OKUL12# 
ABCD£FGHIjKLMNOPQRSTUVWXYZ012 3456 789AiB2C3D4E5F6G7H8l9J10KllLi;~ 



10020060 T 0000 



600TQ0EXIT« 



10020070 T 0000 
10020080 T 0000 



nqtt + true; t«-true; fqroii«-4;y«.true;i«-3;ii<-i;Tandufalse; 

i0step01until01d0*5; ~ 

bi*nott;b2*tanoy; 



10020090 t 0000 



10020100 T 0005 
10020110 T 0006 



ABCDEFGHljKLMNOPQRSTUVWXYZOl 23456789 A1B2C3D4E5F6G7H8 19 .J10K11L124-6; 



ABCUEFGHIJKLMNUHURSTUVWXYZ01«!3456789Al82CiD4ESF6e7H8l9J10KllH*7T 

forqu»iostepqiuntroido; 



10020^0 T 0007 
10020130 T 0~OOT 
10020140 T 0009 



EXITS IF 01 THEN TEMP [!)«■!; 



10020150 T 0009 



'\ 

3 
4 

M 

6 
7 

H 

9 

10 

"< 

12 

13 

15 
16 

"I 
18 

19 

20 | 

21 

22 

23 ( 

24 



25 
26 I 
27 
28 
29 | 
30 



31 
32 I 
33 
34 



35 I 

36 

37 

38 | 

39 

40 

4,1 

42 



43 
44 I 
45 
46 



47 ' 

48 

49 

50 I 

51 

52 

53 ( 

54 

55 

56 I 

57 



>r 



13 
14 



15 
IS 
17 
18 



19 
20 



21 
22 
23 
24 



28 
26 



27 
28 



29 

30 



31 

32 

33 

34 

35 

36 

37 " 

38 



40 
41 
42 
43 



45 
46 
47 
18 

49 
50 

51 



52 
53 
54 

55 



56 
t>7 



IF NQTT THEN TEMP t'ii+2) 



10020160 T 0012 



IF T THEN TEMP t3)«-3* IF Y THEN TEMP C A 3 *• 4 i 

IF TANDY THEN ELSE T£MP[53*5J IF B2 THEN ELSE T E MP C 63» 6> 



100201/0 T 0015 
10020180 T 0020 



IF ABC0EF6HlJKLMNdPaRS'TLVrtXY20123/»56789AlB2C304E5F6G7H8l9jl0KHul2 = 6 



10020i90 T 0026 



THEN TEMP [73*7j 
IF AecDEFaHlJKLMN0PQRSTUVWXYZQl234567a9AlB2C3D4E5F6G7H6l9>Jl0Klili « 7 



10020200 T 0026 

looaoaio t 0029 



THEN TEMP [83*8; 



10020220 T 0029 



IF 1*3 THEN TEMP C93*9J IF Il«l THEN TEMP [103*10* 
IF F0RQll»5 THEN TEMP tU3»Uf 



10020230 T 0032 
1002024Q t 0038 



IF JOSTEPOIINTILOIOU .»5 THEN Te*P C 1 2 3 *- 1 2 ; 



10020250 T 0041 



FILL ANS [*3 WITH QCU> 0CT2* QCT3» QCT4* 0CT5» 0CT6, 0CT7* QCUO» QCTl "f» 10020260 T 0044 

_^ -■■-■. v,. _ START OF SEGMENT ********** 13 



UCT12,QCT13*UCT14J 



10020270 T 0045 



fVN»12> P\n«.?i 



13 T S 12 LONG, NEXT SEG 
IQOaOgflO' T 004 5 



\tt 



VERIFY 



10020290 T 0047 



END* 



10020300 T 0047 
12 TS 52 LONG, NEXT SEG 10 



PSCcEDUrE P3; COMMENT THE US£ OF NUMerS EXCLUDING SIZE Ll«lT *T iQNS. 



LXILNOtU ALGUL MANUAL SEC i2,6. KM, JULY 26 1«63; 



10030010 T 0014 
10U300<fU y OTHTT 



BEGIN 



10030030 T 0014 



COMMENT UNSIGNED NUMBEHS; 



10030040 T 0014 



TEMP[13*9J 
T£MPC23«-99i 



10030050 T VOW 
10030060 T 0016 



TEMP[3J«-,5; 



10030Q70 T 0018 



TEMPC43*9,5i 
TEMPC53*P2; 



10030080 J 0020 
10030090 T 0022 



TEMP[63*H+3> 



10030iOO T 0023 



TEMPC7 3*e*3f 
TEMP [83*2*2* 



10830H0 T 0025 
10030120 T 0027 



TEMP[93«-2«»-2; 



10030130 T 0029 



1^ 
.( 

3 

4 • 
si 

6 

7 

8 I 

9 

10 

111 

12 

13 

,4 I 

15 

16 

,7 I 

18 

19 

20 I 

21 

22 

23 1 

24 

25 

26 4 

27 

28 

29 4 

30 

31 

32 i 

33 

34 

35 4 

36 

37 

38 I 

39 



40 
41 I 
42 
43 



45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
5? 



ffl 



• • 



TEMP C 10 J«-43 + 2; 



s 

O 

Q 



3 

4 

6 

7 

9 

10 

12 
13 

> M 

US 

16 

> ' 7 

18 

19 
| 20 

21 

22 
| 23 

24 

25 

I M 
27 
28 

I » 
30 

31 ~ 
) 32 

33 

34 
I 35 

36 

37 ~ 
I 38 

39 

40 

41 

42 

« _ 

44 

45 

46 

47 

(8 

19 

SO 

51 

52 

53 

54 

SS 

M 

12_ 



10030140 T 0030 



TEMPCllU4,5e-2^ 
TEMPC123+4.5P+2; 



COMMENT $IGN£U NUMBERS/ 
______ 

TEMPE143+-99; 



TEMP [15 J*". 3 J 



TEMP[163*+.5j 
TEMP[173*-9.5; 



TEMP[183«- + S.S; 



TEMP[193*-?2; 
TEMPJ203 ♦-<?♦ 3; 



TEMP [21 J «--(!> l; 



TEMP[223*--2*2; 



TEMP[23]«--2« 1 -2; 
TFMPr?4li-t4P-g? 



TEMPC25J«- + 4,5P«2; 



TEMP[263*-2.5P+2; 

COMMENT EFFECT OF ZERO UN SELECTED VALUES; 

T£MPC27J*-.Qj 

TEMP[2bJ«-"^U; ' 



TEMPt293*--2,5P-0; 



TEMP[303*+2.5P-Oj 



TEMP[3lJ«--0**+10; 
TEMP [ 323 *-QP+0; 



TEMPC333«---.OP-o; 



TEMP [ 343«--.5P + o; 
TEMP[3bJ»49-o; 



TEMPC36)*Q?*a; 



10030150 T 0032 
1Q03016Q T 0034 



1003017C T 0036 



10030180 T 0036 
mo^o^n t ona« 



10030200 T 0040 



10030210 T 0042 
10030220 T 0043 



10030230 T 0045 



10030240 t 004? 
10030P50 T 0049 



1003026C T 0051 



10030270 J 0053 



10030280 T 0055 
1 00 3 0390 T 57 



100 30300 f 0059 



10030310 T 0061 
10030320 T 0063 



10030330 T 0063 



10030340 T 0065 
10030350 T 0067 



10030360 T 0069 



10030370 T 0070 
10030380 T 0072 



10030390 T 0074 



10030^00 T 0076 
10030410 T 007fl 



10030420 T 0080 



< 



1 
2 
3 
4 
5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 ( 

27 

28 

29 \ 

30 

31 

32 { 

33 

34 

35 4 

36 

37 

38 ( 

39 

40 

42 

43 

44 I 

45 

46 

47 i 

48 

49 

50 % 

51 



• 
• 



TEMP[373*O02; 



52 
53 ( 
54 
55 
56 ' 
5? 



10030430 T 0082 



>r 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



13 
14 



15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 V 

32 

33 

34 

35 



36 
37" 



40 
I 41 
42 
43 
I 44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



FILL ANS[*j WITH 9» 99* OcT 10 10000000000004, 



OCT10100000000QQ114> jQQ, 1QQQ, 



0CT120«061115645707# HOOp QCT u6 12j727Q243656» 



400* QCTH627Q2436560510* 450* 
OCT2000000C00000011* 0CT2O0000QO000oOi43* 



QCT 30100000000000 0/1, OCT 1 1 OOOOOOOOOOOQa, 



0CT30 10000000000 1 14 > QCT lOlOOOQOOQOOQl 14, 



OCT 3000000000000 14 4* OCT 300000000000 i/!?0# 
OCT3131200000O0000O* QCT 3 12 3100000000000, 



QCT3 16 121 7270243656* QCT 11624365605075 34, 



OCT 116 27 24 36 560 5 10* OCT 3 123720000000000, 
OCTIOOOOOOOOOOQOOOG, QCT 31 4 1 OOOOOOOOOOOO, 



OCT 3 142400000000000 * OCT 1142400000000000, 



OCT 1000 OOOOOOOOOOOO* QCT 1000000000000000* 
UCTIoooOOCOOooqoooq, 0CT3154Q0QQ00Q000Q0, 



QCTlU4000000000000» Q* QJ 



CVN «• 37; 
PNO * 3* 



VERIFY 



end; 
procedure p4* comment 2,7 strings! 

BEGIN 

TEMPC1] *•"""; — 

TEMP£23*« w; 



TEMP[3j<- ,, AeCDEF"; 



TEMPC4]* M A C E "J 
TEMPC53*»A»^Ii w * 



rEMP[63<-"C>-<89"; 



10930«40 T 0064 



START OF SEGMENT ********** 14 
10030450 T 0085 



IOO3O46Q T 0065 



10030470 T 0085 
10030480 T 0085 



100301190 t onas 



10030500 t 0085 



10030510 T 0085 
10030520 T 0085 



10030530 T 0085 



10030540 T 0085 
10030550 T 0085 



IOO3O56O f 0085 



1003057C T 0085 
1q03058q j q c 85 



10030H90 T 0085 



14 



37 LONG, NEXT S^G 



10030600 j 0085 
1Q030610 T 0066 



10030620 T 0087 



10030630 t 0087 
10040010 T 0104 



10040020 T 0104 



10040030 T 0104 
10040040 T 0105 



10040050 T 0107 



10040060 T 0109 
10040070 T QUI 



10 



n 
2 

3 

4 

5 

6 
7 



9 

10 

11 I 

12 

13 

14 ( 

15 

16 

17) 

18 

19 

20 1 

21 

22 

23 I 

24 

25 

26 1 

27 

28 

29 { 

30 

31 

32 % 

33 

34 

35 % 

36 

37 

38 % 

39 

40 

4,1 

42 

43 

44 % 

45 

46 



47 

48 

49 

50 I 

51 

52 

53 ' 

54 

55 

56 I 

5} 



a 



10040080 T 0112 



>r 



TEMP[f3«- M S3RT Y"; 



10040090 T 0114 



i 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 



FILL ANS [*3 fclTH CCT77* 0cT60, 0cT2 12223242526* 



lOOAOiOO T 0U6 
START OF SEGMENT ********** 15 



UCT216023602560# CJCT2 l754 1 373 152* GCT 33 1&5436 \0 n, 



10040HO T 1 18 



QCT625051636070; 



10040x20 T 0118 
1 5 T S 7 L ONG , NEXT SEG Lfi_ 



CVN*7; PNQ*4;VlRIFY 



10040130 T 0118 



13 

14 
115 



end; 

procedure p5jc0mment 3,1 variables* 



10040140 t 0U9 
10050010 t 0126 



16 
17 
18 



BFGIN 



10050020 T 0126 



19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 



COMMENT SIMPLE VARIABLES * 



10050030 T 0126 



INTEGER ALGQL* 6AGQL* SV£ * AC*l; 



10050040 T 0126 
START OF SEGMENT ********** 



COMMENT SUBSCRIPTED VARIABLES* 

ARRAY SUBSCCO«53* TWQCO * 1* * 13* TOW [ « 1* » 1 3* V AR [ ' 5 ] ; 

ALGOL«-i23i bagol«-algcl; SVE«- "ASSBLY"; AC* "SAVE"/ 



10050060 T 0000 



10050070 T 0000 
10050075 T 0007 



16 



31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 



FOR I * STEP 1 UNTIL 5 DO 



10050Q80 T 0010 



BEGIN SUHSCCI] * 1 end; 
FOR I «■ 1 bTEP 1 UNTIL 5 DC VAHUJ * SUBSCU3* 



10050090 T 0014 
1Q05Q10Q T 0017 



I * 6i 



10050HO T 0022 



40 
41 
42 



V ARC 1-6 3 * ALGCLjTfcOtl'l] * 220 ; TQW [ 1* 1 3 * TWO C I -5* I -5 3 ; 



T . EMPCM t ALG OL* 



TEMP [ 2] <• B AGQ L* 



TEMPt^ J » SV g J_ 



10050120 T 0023 
.1,0050130 T QQ31 



♦5 
46 
»7 
48 



TEMP 1 4 3 ♦■■ AC I 



TEMPOS] * VARU3J 



TEMPC63 ♦ VAR[23; 



10050140 T 0036 



TEMP[73 «• VAR[33; 
TEMPC103 «■ VARC03; 



TEMPt83 «• VARC43; TEmP[93 «■ VARC53; 
TEMPC113 «- TOWCl/13; 



10050150 T 0042 
10050160 T 0046 



49 
so 

51 



FILL ANS C*3 WITH 0CTl73# QCU73* 0CT216262224370* QCT622i6525* 



10050170 j 0053 



52 
53 
54 



START OF SEGMENT ********** 17 
OpTl* LCT2* 0CT3* QCT4* QcT5> OCT 173* 0CT334; 10050i80 y °054 



55 

56 



17 T S U LONG, NEXT SEG 16 



55 

5.1 

57 



PNC«-5* CVN + lH VERIFY 



10050190 T 0054 



"*H« 



2 
3 
4 
5 



7 
8 
9 
10 
11 
12 
13 
14 
15 



16 
17 
18 

19 



20 
21 
22 



23 
24 



25 
26 



27 

28 

29 

30 

31 

32 

33 

34 

35 

56 

37 ~ 

38 

39 

40 

41 

42 

43 ~ 



45 
46 
47 
(8 
49 



SO 

51 



52 
53 



94 

55 



96 
67 



end; 



10050200 T 0056 



PROCEDURE P6* COMMENT 3.2 PARTIAL WORD DESIGNATORS; 



16 tS 63 LONG, NEXT SEG 
1Q0 60010 T 0126 



10 



BEGIN 



10060020 T 0126 



INTEGER I'VAR; 



10060030 T 0126 
START @F SEGMENT ********** 



ARRAY VARAYL1I2MI53J 



10060Q4Q T 0000 



COMMENT VARIABLES; 
I » 79 ; 



10060050 T 0002 
1006005b t 0002 



VAR 4- 549755813*387; 



10060060 T 0002 



TEMP[13*VAR.ni47J; 

VAR «- 134; 



10060070 T 0003 
10060080 i 0006 



TEMP[2]«- VAN, [40»8J; 



10060Q9C T 0007 



TEMP[33«- VAH.C40J63; 
VARAYC 1*13*- 1962; 



10060100 T 0009 
10060110 t 0011 



T£MP[4]«- VAHAYtl'U.C45»2]; 



10060120 T 0014 



VARAYCl*lJ#U3:i3 «■ 21 
TEMPC53 * VARAY CI. 131 



10060130 T 0~0T8~ 
10060140 T 0023 



VAR 4-H3; 



TEMPC63 «■ (VAR + 7 ) f C 3<J * 6 3 ; 
VAR«-4316J 



10060150 T 0026 

10060160 t fforr 

10060170 T 0030 



TEMPC73 «• VAR,C43;23 + 1 • C39>9 J ; 



IOO6O18O T 0031 



FILL ANS[*3 WITH 0CT00077777777/7777* 0CT2Q6* 0CT041. OCTL 



18 



10060i90 T 0034 
START OF SEGMENT ♦♦»*»***♦* 19 



0CT3652. OCT 17, GCT122J 



10060200 T 0036 



19 T S 



7 LONG* NEXT SEG 18 



cvn*7; PNQ*6; 



VERIFY 



END* 



10060210 T 0036 
10060220 T 0037 



PKO'CEUuRL P?i COMMENT 3.3 F uNC I IUn UtSlGNA T UKSJ 



18 tS 45 LONG, NEXT SEG 10 
lo0mifl T Qy^-g < 



^r 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 



18 

19 



Q 

to I 
Q 



20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 " 

32 

33 



34 

35 
36 

37 ~ 

38 

39 



40 
41 



42 
43 " 



44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
S4 
55 
56 



BEGIN 



10070Q20 T 0126 



INTEGER I#J>L»K; 



10070030 T 0126 



ARRAr A t l ' l J J 



START OF SEGMENT ********** 20 



100700 4 T 0000 



INTEGER PROCEDURE NOFORMAUPARAMETERS; 



NQFORMALPARAMETERS*i; 

REAL PROCEOURE ARITH ( VARl , VAR2, VAR3 ?; 

VALUE VAR1#VAR2*VAR3# 



INTEGER VAR1»VAR2>VAR3; 



BEGIN 



TEMPC23* VARl* 



te:mP[4]«- varjj 

TtMP[3]«- VAR2i 



ARITH ♦ VARl + VAR2 + VAR3 + TEMPCU 



tWOj 



RFAI, PRnCFDURF ABAVCAH 



REAL a ; 



BEGIN 



+6i ARAY * 4i 



end; 



boolean procedure boolcb); 
value b; boolean b ; 



BEGIN 



BOOL «■ B 



end; 



REAL PROCEOURE STRnGcQNE* TwO)i 



value one#two;heal one'Twq; 



BEGIN 



strng ♦ one* two; 

Tnd~i 



10070050 T 0001 



10070060 T 0001 
10070070 T 0006 



10070090 T 0006 



10070100 T 0006 
10070105 T 0006 



10070110 T 0006 



10070130 T 0008 
10070120 t 0010 



10070i«0 T 0012 



10070150 T 00 U 
10070160 t, 0017 



10070 170 J 0017 



10070180 y 0017 
10070190 r 0017 



10070200 T 0019 



10070210 T 0022 
10070220 T 0022 



10070225 T 0022 



10070230 T 0022 
10070240 t 0023 



10070250 T 0026 



10070260 T 0026 



10070265 T 0026 



10070270 T 0026 



10070275 T 0028 



w 



£ 

Q 

Q 

to . 
Q 



9 
10 

I » 

12 
13 

I 14 

15 

16 

I <7 

18 

19 
| 20 

21 

22 
! 23 

24 

25 
i 26 

27 

28 

29 

30 

31 "^ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

»2 



♦3 
i 44 
45 
46 
47 
»8 
49 
50 
51 
52 
53 
54 



55 
56 



TEMPtl] * NOFQRMALPARAMETERSj 



10070276 T 0030 



TEMPC53 <• ARlTH(I+U,J x l*L + 56); TEMPC7J «• 6i 



10070280 T 0030 
10070290 T 0Q36 



TEMP[6] <- ARAYC T£MP[?J); 
TEMP[8] * REAL CTEMPC3J»3); 
TEMPC93 » STRNG(K)"STRING w t J>j 



IOO7O3OO T 0042 



10070310 T 0045 
10070320 T 0048 



FILL A,N|Sr »] ulTH QCTW UCTgO, QCT55, 0CT73. 0CT171. DCT 4 . 



10070330 > 0050 



START OF SEGMENT ********** 21 



0CT6, GOTO, 0CT33; 



CVN* 9; PNO <• ?; VERIFY 



10070350 T 0052 



end; 



PROCEDURE P9i COMMENT TRANSFER FUNCTIONS 3.3.5, «M. JUNE 1 63; 



BEGIN 



REAL X*Y,Z#C; 



10090020 T 0126 
10090Q30 T 0126 



INTEGER Hi 
RQHLEAN A»H ,n ; 



100900^0 T 0000 



1009005.0 T 0000 



REAL PROCEDURE flHlcHMASFQR*AHDCQ»R) J REAL 0* Ki FqRWARD; 



10090060 T 0000 



real procedure checktransf£rc xx* yy); 
Real xx, yy; 



10090070 T 0000 
10090080 T 0000 



BEGIN 



CHECKTHAN SfrbH»xk uiv yy; 



end; 



I00900f0 t 0000 

10090100 T OOOO 
10090HO T OOOl 



BOOLEAN PHCCEOURE CHECKREALC F*Q)i 

boulLan f. g; 



10090120 T 0003 



BEGIN 



10090130 T O0O3 
10090140 T 0003 



CHECKREAL * F AND G ; 



10090150 T 0003 



end; 



■*n« 



START QF SEGMENT ********** 22 



1* 



10070340 t 0052 
21 T S 9 LONG, NEXT S£G 20 



10070360 T 0053 

20 tS 59 LONG, NEXT S£G l0_ 

10090010 T 0126 



2 

> 3 
4 
5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 < 

18 

19 

20 I 

21 

22 

23 ' 

24 

25 

26 I 

27 

26 

29 t 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 



1 

i 
t 
t 



• 



46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



m 

m 
m 



10090160 T 0005 



^r 



REAL PRUCEOURE WH I Chfc ASK GRlN ARD ( Q> R ) i 



10090161 t 0007 



Real q#r; 

BEGIN 



10090162 T 0C07 

10090163 T 0007 



WhlCHWASFGRWAKD «• + R; 



10090164 j 0007 



end; 

TEMPCn*5* T£MPt23«-6; 



10090165 T 0009 
10090170 T 0011 



10 

11 

12 



x«-3.n Y«-2J H*7; Z«--3 . 3i A'TRUE; b ♦ false; 



10090180 t 0015 



COMMENT CHECKOUT &F ENTIER TRANSFER FUNCTION; 
TEMPC33* ENTIER CX MOD Y); 



13 
14 

15 



10090190 T 0020 
10090200 T 0020 



16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 



TEMPC<U«-ENT1ERC CHECK! RANSFER( X» Y ) ♦ H # [46|l]); 



10090210 T 0023 



TEMP [ 5] RENTIER C-2, 999999999); 
TEMPC63*ENTIER(X); 



10090220 T 0028 
10090230 T 0031 



TEMPm«-E\TlERC-Z)i 



10090240 t 0033 



TEMPC8]«-ENTIER(IF A ThE* ChECKTRANSfER ( 5 , 7,-2 . 1 ) FlS£ 
"AB" + W A"); 



10090250 T 0036 
10090360 T 0049 



TEMPC9]«-ENTlER( IF A ThtN REAL(A) ELSE REAl(B)); 



1009027q T 0052 



T£MPtlOJ*ENl IERC IF A Th£N WHIGHNASF'UNN'ARD (2.1*3.2) ELS E 

2.7); 



31 
32 
33 



10090280 T 0056 
10090290 T 0059 



34 
35 
36 



TEMPCIU+ENTIER ((IF BCOlEAN(O) THEN REAL(A) ELSE IF A 



10090300 T 00*1 



37 
38 
39 



THEN( IF BQ0LEANCH.C46I1)) THEN 
R£AL(B00LEAN(IF A THEN 1 ELSE 2.4)) ELSE 5.4} 



10090310 T 0063 
10090320 T 0065 



41 
»2 
43* 



45 
46 
47 
48 
49 
JO 



ELSE 1 ) +2.3); 



10090330 T 0068 



COMMENT CHECKOUT OF REAL TRANSFER FUNCTION; 
C»REAL(A EQV A ); C»C .£471 1 3 ; TEMPC 12 3+ENTIERCC ); 



10090340 T 0071 
10090350 T 00^1 



C + R£AL(CHECKREAL(TRUE>BQGLEAN(0)) OR BOOLEAN(H , [ 47 j 1 3 ) }; 



10090360 T 00?6 



51 
52 
53 
54 



55 
56 
67 



TEMPC133 «■ ENTIER (C); 

C » REAL (6); TEMPE14J » ENTIER(C); 



10090370 T 0090 
10090380 T 0092 



C * REALC If" A THEN A OR B ELSE A AND B") I TEMPI 15 )*ENT IER( C ) ; 
C*f+E A L (IF A THEN sDULEANCh, U7U3 ) ELSE B00LEaN(H,C42I iJMI ~ 



TEMPC163*ENTIER(C); 



10090390 T 0096 
10090*00 T — 0IT3T 
100904tl0 T 0105 



C *■ REAL( IF B THEN BOOLEANCIF A THEN 2.5 ELSE X) ELSE 



10090420 T 0108 



49 

50 ( 

51 

52 

53 ( 

54 

55 

56< 

57. 



>r 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 



IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 



29 
30 



31 
32 
33 
34 
35 
36 
37 " 



40 
41 
42 
43 



46 
16 
47 
•8 



49 
50 



51 
52 
S3 
54 



* 



_^_ 



( IF A ThEN BGOLEANCREAL(A)) ELSE B ) ); 



10090430 t OlH 



TEMP[173*ENTIER(C); 
COMMENT CHECK OUT OF BOOLEAN TRANSFER FUNC * 



10090440 T 0113 
10090430 T 0116 



D * BOOLEAN Y DIv X); TEMPC 18 ]*-ENTlERC REAt'C D ) )' 



10090460 T 0116 



* 800LEANC IF A THEN ChECKTRANSFER (6* 2> ELSE »A")J 
TEMPC1934.ENTIERCREALCO)); 



10090470 T 0120 
10090480 T 0123 



D «• BOOLEAN (IF B OR B ThEN TEMP 1 1 J *TEMP[2 ] ELSE 



10090490 T 0126 



REAL(BO0Lt.AN("A M ))); 
TEMPC20 3*ENTl£R{REAL(DJJi 



10090500 T 0*30 
10090510 T 0130 



COMMENT GENERAL USE QF TRANSFER FUNCTUS* 
TEMPC2l]«.ENTiEH(REAL(BOOLEAN{REAL(800LEANcREALcBdOLEAN(5)))J)JTX 
TEMPC22]»ENTI£R( (IF A THEN REAL(BOQLEANCH) ) ELSE REAlCBOOL EAn 



l009052 T 0133 



10890530 T 0T3T 
1Q09054Q T 013 6 



(-5))) + ENTIER(HLAL(B0ULEAN(H))3); 



10090550 T 0138 



FILL ANSI*] WITH 0CT5, 0CT6, 



0CT1, QCT2 



1009063Q T 0142 
START QF SEGMENT ********** 



JUL 



QCT2000C00000000003' GCT3* 0CT3* 



10090640 T 0l44 



0CT2000000000000002* QCTl* 0CT5# 0CT3* QCTi* OCTi* OcT'O* 
QCTl* QCTl* QCTl* QCT0> QCT3» _Q_CJT21> QCT5* 



10690650 T 0144 
10090660 T 0144 



0CT16; 



10090670 t 0144 



CVN.*22i 



PIMQ«-9; 



10090690 T 0144 



VERIFY 



ENOi 



1 0090 f 00 t 0145 
10090710 T 0145 



22 T S 152 LONG, NExT SEG 



10 



PROCEDURE P10; COMMENT GEN, ARITHMETIC EXPRESSION* IF CLAUSE. 
3,4.3,2 DEC. 11. KM. ; 



10100010 t 0126 
10100020 T 0126 



BEGIN 



10100030 T 0126 



BOOLEAN A*B; 



10100040 T 0126 
START OF SEQMgNT »»»**»»»»» 



24 



INTEGER X>Y i 



101C0050 T 0000 



T< 



23 T S 22 LONG, NEXT SEG 22 
10090680 T 0144 



35 ' 

36 

37 

38 i 

39 

40 

41 I 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



• • 



>T 



REAL 



P»Q 



101000O0 T OOOO 



REAL PRUCtOURE GENARITH CX,Y,A)J 



2 
3 
4 
S 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 



REAL 



x»y; boolean a; 



10100070 T 0000 
10100080 T 0000 



BEGIN 



10100090 T 0000 



GENARITH* IF A THEN X/Y ELSE X MOO YJ 



END 



lOlOOlOO T 0000 
10100110 T 0003 



INTEGER PROCEDURE GENERAL (X,Y,A); 



10100120 T 0005 



INTEGER X*YJ 

BOOLEAN A; 



lOlOOUO T 0005 
10100140 T 0005 



BEGIN 

GENERAL «• IF A THEN X.C46<23 ELSE (X+Y ) . [46 * 23 



10100J50 T 0005 
10100160 T 0005 



19 

20 
21 



22 
23 
24 



25 
26 
27 
28 
29 
30 



end; 



10100170 T 0009 



A* TRUE' B* FALSE; X*-4i Y*66j P«- ? /2> Q + 7/4; 
TEMPC1J «• 5; TEMPC2] «■ 7; 



10100180 j °012 
101001^0 T 0018 



TEMPm* IF B THEN 7/5 ELSE C 6ENARITHC7#5> TRUE ) + 



10100200 T 0022 



GENERALC5>7,FALSE>).[44t4]/ 
TEMP[43* IF A THEN "ABC" ♦ "ABC" ELSE X.[47»l3+3 i 



10100210 j 0026 

1 1 00 220 t ooae 



31 
32 
33 



TEMPCS3* IF A THEN - GENERALC 7,5, TRUE) ELSE - (P MQD Q MqQ P)* 



10100230 T 0033 



34 
35 

36 



TEMPC6]* IF A AND 6 THEN -"A" ELSE - "ABC" - "CDE"; 
TEMP[7) * IF 8 THEN Q ELSE - CGENAR ITHC 10, 5, FALSE ) . [ 45 I 23 ) > 



10100240 t 0039 
10100250 T 0044 



37 

38 
39 



TEMPC83MF NOT A THEN C GENERALC2»4* TRUE ) MOD X,[45*33) El 3 E 



10100260 T 0049 



40 
41 
42 
43 



("AB" MOD "A") + "B"; 
TEMP[9J <• IF B THEN P + Q ELSE (4 DIV 4) ♦ X, [451 13 i 



10100270 t 0053 
10100280 T 0055 



TEMPC103* IF Q THEN X EuSE IF B THEN X ELSE IF B THEN X ELSE Y; 



10100290 T 0060 



46 
47 
48 



TEMPC11J«-IF B THEN GENERAL C X, Y, A } ELSE IF B THEN 

GENERAL (4»1,TRU'E> MOD GENARITH (4,1, TRUE) ELS£ 



IOIOO3OO T 0066 
10100310 T 00^0 



49 

50 
51 



IF A THEN GENARITHCA8C" , "ABC" , (A AND B)) ELSE 



10100320 T 0074 



52 
53 



Q'> 



10100330 T 0083 



55 

56 



w 



TEMPC12J* IF A THEN TEmPUJ MOO TEMPC21 ELSE TEMPUJ x 5j 
FILL AN8C*3 WITH QCT5, 0CT7# 0CT6, 0CT424446, 



10100340 T 0084 
1Q1QP35Q T 0090 



55 

67 



START OF SEGMfNT ********** 



25 



~9~)* 



W 



i 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 



14 
15 
16 
17 
18 
IS 
20 
21 
22 
23 
24 



25 
26 



27 
28 



23 

30 



31 
32 
33 
34 
36 
36 



37 
38 

39 
40 
41 
42 
43 



45 
46 
47 
48 
49 
50 
51 
52 
53 
54 



55 

56 



OCT2000G0000000000 3* OCT 2000000000 444650* qCT 0* 
UQ121, QCT2, 0CT102* OCTQ> QCt5; 



10100360 T 0092 



CVN* 12' 



10100370 T 0092 
25 T S 12 LONG* NEXT Seq 24 
10100390 T 0092 



PNO* 10> 
VERIFY 



10100400 T 0093 
10100410 T 0094 



END' 



10100420 T 0094 



PROCEDURE Pli; 



24 T 8 98 LONG, NEXT SEG 10 
10110010 T 0126 



COMMENT 3,4,4,1*+ LEGITIVATE USE OF ♦•; 



10110020 T 0126 



BEGIN 

REAL PPOCEQUHE FUNCi FUNC»«; 



10110030 T 0126 
16110040 T 0126 



START QF SEGMENT ********** 



26 



TEMP C13*+5; 

TEMP C23»*C*UU(+( + (+3))))?)J 



10U0Q50 T 0003 
10110060 T 0005 



TEMP [3]<- + 3 + ( + 3); 



101100^0 T 0007 



TEMP C4J** M «*i 



10110080 T 0009 



TEMP [5]«- + TEMHCU; 

TEMP r6]» + TEMPC2].[40»n) 



10110090 T 0011 
lOllOlOO T 0014 



TEMP C7]*+FUNC* 



10110110 t 0017 



TEMP [8 3«- + 6 + " 1 3"+ TEMP C 7 3+ TEMP [3 3, [44: i3+FUNC; 
TEMP[$3«-+" + 3"+"-6" ; 



10U0120 T 0019 
10110130 T 0025 



FILL ANS[*3 WITH 0CT5# QCT3# 0CT10* 0CT77* 0CT5» QCT1»0CT4# 



10110140 T 0027 



0CT122, 0CT74H } 



START OF SEGMENT ********** 27 
10110150 T 0029 



CVN* 9; PNO*U' 
VERIFY 



27 T S 9 LONG, NEXT SEG 26 

10110160 T 0~Q2~9 



10110170 T 0030 



ENOi 



10110180 T 0030 



26 T S 34 LONG, NEXT 5£G 1Q~ 



si 

3 

4 

si 

6 
7 



9 
10 

11 1 

12 

13 

14 I 

15 

16 

17 I 

18 

19 

20 ( 

21 

22 

23 I 

24 

25 

26 ( 

27 

28 

29 4 

30 

31 

32 { 

33 

34 

35 { 

36 

37 

38 ( 

39 

40 

4, i 

42 



43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 

J' 



e 



>r 



1 

i 2 

3 

4 

5 

6 

/ 

8 

9 

10 

11 

12 

13 

14 

(15 
t - 
16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34~ 

35 

36 

37 ~ 



38 



40 
41 
42 

43. 



45 
46 
47 
48 
49 
50 
51 



52 
53 
54 
55 



56 
67 



PROCEDURE Piz; COMMENT THE ARITHMETIC OPEHATQR (-); 



10120010 T 0126 



BEGIN 

real a,b; 



10120020 r 0126 
10120030 T 0126 



START OF SEGMENT ********** 



28 



A *15/4; B«--386/4; 
TEMPI13+ 4*2 ; TEMP [2] «. 2-3 ; TEMP [3] + 4-2-U 



10120040 T 0000 
1012005q t 0002 



TtMp[43 «• A-B; TEMP [53 «■ B-A i 



10120060 T 0010 



temp[6] ♦ t52 ; Temp c7j * 98; tempcbi «■ temp if\ • Temp [7]j 

T£MPC93»A.C 9:93- C8+5).[9> 93! 



10120070 T 0014 
10170f)8Q T 0Q2t 



TEMFC10]*-ll-(-4); 



TEMP[113«-ll-C-«)-5J 



10120090 T 0025 



TEMPC12]* +A - (+8); TEMPC133 «• -B-CA)* 
TEMFC143* - TEMP [6]- TEMPE73; 



10120100 T 0031 
10120110 T 0036 



TEMPC15]*- -A.[ 9I93-B.C 9:93; 



10120120 T 00^0 



BEGIN 

INTEGER PROCEDURE CALC (DSUBO)J COMMENT THIS PROCEDURE U*ED TO FORM 



10120130 T 0044 
10120140 T 0044 



START OF SEGMENT ********** 



29 



FUNCTION! 
INTEGER 0SU6D; 



10120150 T 0000 
10120160 T 0000 



BEGIN CALC*- BSUBO ENO> 



10120J70 T 0000 



TEMP C 163* CALC (-7) -3i 



END. 



10120180 T 0003 
29 tS 11 I QNG. NEXT SFfi 



-2fl_ 



TEMP C173* -"""-"A+B"J 



10120190 T 0045 



FILL ANSC*3 WITH QCT2*- OCT200000000000000i# QCTl* OCT I0l0000000o0l442* 



10120200 T 0047 



0CT301000O000QQ1442* 0CT230#0cTl42* OcT66> GCT225, 



START 8F SEGMENT ********** 
10120210 T 0049 



30 



OCT 200000000000000 ? » OC T2OQ0OQO00QOOOO 1 4* OCT! 010000000001 442/ 



10120220 T 0049 



OCT10100000U0001442' C I 200000oOOo0003/2* CT2000000000000520* 
OCT 20000000000000 12, QCT2000000000212121J 



10120230 T 0049 
10120240 T 0049 



30 t» 17 LONG, NEXT SEG 



28 



CVN «-17; 



10120250 T 0049 



P 
2 

3 

4 

5 



• 
• 



> 



1 

2 
3 
4 
6 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



16 
17 
IS 
19 

20 
21 



22 
23 



24 
25 



26 
27 
28 
29 

30 

31 

32 

33 

34 

35 

36 

37" 

38 



39 
40 
41 
42 
43." 



44 
45 
46 
47 



48 
49 
50 
51 



52 
53 



54 

55 



PNC +12; 



10120260 T 0050 



VERIFY 

enc; 



10120270 T 0050 
10120?80 T 0050 



28 t s 55 LONG, NEXT SfcG 



10 



PROCEDURE P13; COMMENT ARlTH OPERATOR x 
BEGIN 



3.4.4.U 



10130010 T 0126 
10130020 T 0126 



INTEGER I0,I1,I2#I3#I«; 



10130030 T 0i26 



REAL RQ> *l> R2* R3' R4> R5J 



START OF SEGMENT ********** 
10130040 T 0000 



31 



ALPHA A0» Ai; 



BOOLEAN Bi 

INTEGER PROCEDURE X CK)i 



I\TEG£H k; 



BEGIN 



XvK+7; 



end; 



REAL PROCEDURE YCL); 



K E AL L* 



Y«-L + 3.7 + 3,5; 



dtGIN 



end; 



igj-Oj U»i; l2<-2; 13+549755813887; J<»«.-1; 



TEMP£U«-IOxlo; 



TEMP[2]«-I0xl2; 
'TEMP[3J«-Ilxl2; 



TEMPC43«-IlxI4; 



TEMP[5]+I0xl4; 
T£MP[6]»I4xl4; 



TEMPC8J>I4xI3J 

t£MPtn*iixi3; 



10130050 T 0000 



10130060 T 0000 
1013Q Q7Q T 0000 



10130080 T O QOO 



10130090 T 0000 



10130100 T 0000 
10130U0 T 0001 



10130120 T 0003 



10130130 T 0003 
10130150 T 0003 



10130140 T 0010 



10130160 T 0011 
l_0130j70 T 0011 



10130180 T 0015 



10130190 T 0017 
10130200 T 0019 



10130210 T 0021 



10130220 T 0024 
10130230 T 0026 



10130250 T 0028 
10130240 T — 01T3T 



1 
2 
3 
4 
5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 ; 
18 



t 
t 
• 



19 

20 I 

21 

22 

23 ( 

24 

25 

26 ( 

27 

28 

29 i 

30 

31 

32 ( 

33 

34 

35 i 

36 

37 

38 I 

39 

40 

4,1 

42 



43 

44 * 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57, 



TEMP[9]*I2xX(2); 



h 



10 
11 

12 
13 
14 
H5 
16 
17 
18 
19 
20 



21 
22 



23 
24 
25 
26 
27 
28 
29 



30 

3l" 

32 

33 

34 

35 

36 

37 " 



38 
39 
40 
41 
42 
43 ~ 



45 
46 
47 
18 



49 

50 



51 
52 
53 
54 



55 
56 



RQ*0; RUli R2*2.2; R3«-8P58; R4*«i; R5«-8P-20; 
TEMPC103»RQXR?j 



CnMHENT ****** THE CARD NQ A013020 IS nRlGNAL. REMHVE AQl3o2o5 WhEn 



******** VALUE OF 8 ? 58 IS KNOWN 



TEMPEH3*R1*CR3*I3)J 

TEMPtlH* ( (Rl x ( R3 ♦ 13 ) ) - R3); 



TEMP£12 3*R4XI3; 

COMMENT ***** CAiD NO A013031 13 ORIGnAi, REMOVE CARD NO A013031 WhE\j 
******** VALUE FOR 8 fr -20 IS KNOWN 



TEMPtn3*Rl x R5; 



TEMP[133«- C*l xR5) + ( -R5); 
COMMENT ****** CARD IMP AQ13q32 IS ORIGNAL REMOVE CARD NO A013q325 



******** WHEN VALUE FOR 8.9 -20 IS KNOWN 



TEMPCUHR4XR5; 



TEMPriu]*- LRJ a ^ 1 ± hs; 



COMMENT ***** CA?D NO A013033 IS QRJGNAL REMOVE CZRQ NO ACUO335 



******** W HEN VALUE FOR 8 9 58 AND ! 9 -20 IS KNOWN 
TEMPCl5]«-R3 x R5i 



TEMPC153* («3x «5) - <R3x R5); 



TEMPC16]«-R1XYC6,8); 
A0«-"0°; A1*"A'A"J B«-TRUE* 



TEMPCi7J*3,i4x»BB"; 



TEMPC1834-I1XA1 j 
TEMP[19 3*-R4XAi; 



TEMP[203*2*7x(iF 8 THEN 7 ELSE -1,5)J 



TEMP[2U*X(-5)xY(0,8); 
TEMP[223*"6d"xAlJ 



TC-MPt«3J»*0*AX; 



TEMP[243«-I1.C45»3] x 12. C « 3 I 33 ; 



10130260 T 0033 



10130270 T 0035 



*Q130?85 t Q<)42 



10130286 T 0042 



10130290 T 0042 
1013Q295 T Qq42 



10130300 T 0046 



10130305 T 0048 

10130306 T 00*8 



10130310 T 0048 



10130315 T 0048 
1Q13Q3U T 0051 



10130317 T 0051 



10130320 T 0051 
1Q1303P5 t 0051 



10130327 T 0054 



10130328 T 005a 
1013033Q T 0054 



10130335 T 0054 



10130340 T 0057 
10130350 T 0060 



10130360 T 0062 



10130370 T 0064 
10130380 T 0066 



10130390 T 0069 



10130400 T 0073 
10130A10 T OOflO 



10130420 T 0091 



T* 



2 
3 
4 
5 

6 

7 

8 

9 
10 
11 
12 
13 

1* 

15 

16 

17 i 

18 

19 

20 ( 

21 

22 

23 ( 

24 

25 

26 ( 

27 

28 

29 { 

30 

31 

32 \ 

33 

34 

«< 

36 

37 

36 4 

39 

40 

«,< 

42 

43 

«i 

45 

46 

47 4 

48 
49 

50 f 
51 
52 

53 I 
54 
55 
56 % 



• 
• 



10130430 T 0093 



h- 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IB 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
28 
27 



TEMPt25]*Ai,[42»6J x Ri, [45133; 



10130440 T 0097 



FILL ANS[*3 WITH QCT0# UCTO* 0CT2# OCT20000Q0000000001* 



IQ130450 T 0100 
START BF SEGHgNT *±*M±**** 



32 



OCTO, OCT l*Gcf 000 7 7 777 77 777777, Q CT 200 7 7 777 777 f 7777 r 



10130460 T Oi02 



0CT22* QCTQ> OCTO» 
QC12QQ7777777777777, OCTO, 



10130470 T 0102 
10130480 T 0102 



OCTO» OCTO* 0CT16* 



10130490 T Oi.p.2. 



0CT1117131631463146* QCT2i2l# OCT200000G000002l2l* 
0CT1132271463146315* 0cT20» 0CT4735062* 



10130500 T 0102 
10130510 T Ol02 



0CT1220O6* QCTO* 0CT2i; 



10130515 T 0i02 



CVN»25j 



32 T S 25 LONG, NEXT SEG 
10130520 T 0102 



31 



pnoi J; 

VERIFY 



10130530 T 0102 
10130540 T 0103 



end; 



10130550 T 0103 



28 
29 

30 

31 " 

32 

33 

34 

36 

36 

37 " 

38 



40 
41 



42 
43 
44 
45 
46 
47 
48 



49 
SO 



51 
52 
53 
54 



55 
56 



*L 



PROCEDURE P_14j COGENT ARITHMETIC OPERATOR / £K 7 NOV fji 

begin 



il tS 112 LONG* NEXT SgG 
10140010 T 0l26 



10 



1S140020 T 0126 



INTEGER J*K; 



10140030 T 0126 
START OF SEGMENT ********** 



33 



REAL A, 8; 



10140040 T 0000 



ARRAY YC1«3J; 

REAL PROCEDURE PROD (A>B>; REAL A* BJ 



10140050 T 0000 
10140060 T 0001 



BEGIN 



10140070 T 0001 



PROD*AxB 



end; 



10140080 T OOOl 
10140090 T 0003 



TEMPCn*1023/2; 



I0t40100 T 0006 



TEMP[2J«-1023/1023; 
TEMP[33* -O/i; 



10140110 J 0009 
10140120 T 0011 



J* 2J 

K* id; 



10140130 T 0014 
10140140 T 0014 



45 

46 

47 I 

48 

49 

50* 

51 

52 

53* 

54 

55 

56 I 

57 



A*125; 



1 

2 

3 

4 

5 
6 
'/ 
8 
9 
10 
11 
12 
13 
14 
)!5 
16 
17 
18 



19 

20 



21 
22 
23 
24 
26 
26 
27 
28 
29 



30 

31 " 

32 

33 

34 

35 



36 
37 " 
38 
39 



40 
41 
42 
43 



45 
46 
47 
48 
49 
50 
51 



52 
53 



54 

55 



56 
57 



10U0150 T 0015 



8*5J 
YC13»Y[23»YC3J*15J 



10140160 T 0016 
10140170 T 0017 



TEMp[5]«- "/!lKEHEV , •*KEHE ,, ; 



10M0180 T 0021 



TEMPC6J«-Yt2J/8; 
TEMPC7J* K/JJ 



10140190 T 0024 
10140200 T 0027 



TEMPC8]«-A/B* 



10140210 T 0029 



TEMPm*K/e; 



TEMPC10J»PRQD(A»bJ/125; 



10140220 T OOil 
10140230 t 0033 



TEMP[H]«-AxB/(20 + B); 



10140240 T 0036 



TEMPti23*A, [39133/11 

FILL ANS_[*j WITH OCT 101Q00Q000Q07774* OCTl* 



10140250 t 0040 
10140255 T 0042 



STAHT OK SEGMENT ********** 



34 



OCT2000000000000000* OCTo* QCTi* OCT/3Y 
QCT5* 0CT31/ QCT.2* QCT5* OCTjJ* QCTi; 



10140260 T 0044 
10140270 T 0044 



34 T S 12 LONG, NEXT SEG 



33 



CVN* 12; 
PNO* 14 i 



10140280 T 0044 
10140290 T 0045 



VERIFY 



IOUO3OO T 0046 



end; 



10140310 T 0046 
33 T S 5 3 \ QNfip NTttT S E r, 



-10- 



PRQCEQUHE P15 i COMMENT THE aHIThHETIC OPERATOR (01V)l 



1 150 Q1 T 0126 



BEGIN 



10150020 T 0126 



REAL A,B; 



10150030 T 0126 
START OF SEGMENT ********** 



35 



INTEGER C# O; 



integer procedure calCZ — c ooivu)* commen t i he procedure useo t form 
function; 



10150040 T 0000 

10150050 t — o-oinr 



10150060 J 0000 



INTEGER ODJVUJ 



10150070 T 0000 



BEGIN INTEGER A; 



10150080 t 0000 



2 I 
3 
4 
5 l 



6 

7 

8 I 

9 

10 

11 I 

12 

13 

14 | 

15 

16 

17 I 

18 

19 

20 I 

21 

22 

23 ( 

24 

25 

26 ( 

27 

28 



29 I 

30 

31 

32 ( 

33 

34 

35 ( 

36 

37 

38 ( 

39 

40 



42 

43 

44 I 

45 

46 

47 < 

48 



49 

50 * 

51 

52 

53 I 

54 

55 

56< 

57 



>r 



s 

o 
Q 

Q 



1 

I 2 
3 
4 
I 5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 



31 
32 
33 
34 
35 
36 



37 
38 



39 
40 
41 
42 

43 



45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



START OF SEGMENT ********** 



36 



A ♦ 25 DIV OOIVD ; CALCZ «• AJ 



end* 



10150090 t 0000 
36 T S 5 LONG, NEXT SEG 35 



A *• 13?/5; 8 *■ 69/5; C «• 89; D «■ 89/ 



10150100 T 0000 



TEKPtU* 270 DIV 9 ; TEMP[2J* A OIV 8; T£MP [33* CAlC* ( b 
- calcz (5)j 



3UIV 



10150U0 T 0004 
10150120 T 0010 



TEMPC4H "AB"DIV "A M ; 



TEMPCbl* C. (42163 OIV 



D.C42J6J; 



10150130 T 0011 



T£MPt63 * -270 OIV 9 ; T£MPC7J«»a DIV(-B)i 



TEMPC83 * "CAUCZC 25) 

. DIV i; 



10150^0 T 0017 
10150150 T 0023 



TEMPC93* -"AB" DIV ' "A"J "TE'MP['i03» C. (39191 DIV 0.U2*63> 



10150160 T 0025 



TEMPCH3* 270 dTv9 DIV 3 jTE*PCl2l*A DIV 8 DIV 4; 
TEMPC133* CALCIC 5 )OIv CALC2C 5 )Diy 0,[42'6]J 



10150i70 T 0031 
10150180 T 0036 



TEMRC 15]«-13.C42*6]0IV 3 OIV A; 



10150200 T 0040 



TEMPC16J * 15 DIV 25 OIV B J TEMPC17J ♦ B DlV CALC2 (25 fblTTT 
TEMPI183* CAUc^C 1>PIV 1 OIV Aj TeMP[193» "AB W QIV C. (45*33* 

TEMp[2Q]«- C.C42J6JDIV 5 DIV"A M ; 



10150210 T 00*4 
10150220 T 0049 



10150230 T 0056 



FI-LL ANS£*3 WITH 0CT36, QCTl> QCT1/ OCTlOl* OCTl* 



OCT200000000C000036/ OCT2000000000000001* 0CT200000G0Q0000001 / 
UCT200000U0U0U001Q1, u C T3' U c Ti2, GcTO> U c TO* q T 7~UqT qT oTTOT 



101502*0 T 0059 

STA RT OF SEGMrNT ********** 37 

10150250 T 0061 



OCTO, OCTO, QCT2122* QCTO; 



10150260 T 006T 
10150270 T 0061 



CVN * 20* 

PNO » 15; 



10150280 T 006 J 
10150290 T 0061 



VERIFY 



10150300 T 0062 



END.* 



PROCEDURE P16; COMMENT ARlTH OPERATOR MOD 



3.4,4, i; 



10150310 T 0062 
35 tS 67 LONG* NEXT S£G 

10160010 T 0126 



10 



BEGIN 



INTEGER IQp lit 12, 13/ 14, 15; 



10160020 T 0i26 
10100030 T 0126 



START GF SEGMENT ********** 



"•"I* 



< 



37 tS 20 LONG, NEXT SEG 35 



49 

50 I 

51 

52 

53 1 

54 

55 

56 I 

52 



38 



HEAL R0>R1>H2>R3*R4»H!3/ 



W 



7 

8 

9 
10 
11 
12 
13 
14 

lie 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

« 



INTEGER PROCEDURE 2(X*Y); 
INTEGER x*y; 



BEGIN 



z*x+y; 



end; 



10*0; lUi; 12*2; 13*17* u*-2; I5*-8; 



10160040 T 0000 



10160050 T 0000 
10160060 T 0000 



10160070 T 0000 



10160080 T 0000 
10160(190 T 0001 



10160100 T 0003 



n 

2 

3 



TEMPtn*lO MOD III 
TEMP[23»l3 MOD 12; 



10160110 T 0009 
10160120 T 0011 



46 
46 
»7 
18 



50 
51 
52 
53 
54 
55 



56 



TEMP[3]*+3 MOD IU 



TEMP[43*I5 MOD 12/ 
TEMP[5]*Ib MOO 14* 



TEMP [63*13 MOD 14/ 



rO*Q; RUi; R2*2 f 2; r3*8,9; r4*-2; 
TEMPC71*R0 MOO RjJ 



T£MPCa]*R3 MOD Kg; 



TEMP[93*R3 MOO Ri; 
TEMPC1Q3*I5 MOO R2i 



TEMPCm*IiJ HOC Cll + 12 + R2)J 



TEMP[123«- W A" MOD U', 

TEMPI133»37 MOD CXF R2 ■ 2,2 THEN 6 ELSE 3); 



TEMP[UJ*48.b MOD Z(3*3J; 



TEMPC153* l3.[42«63 MOO 12, [45133; 
COMMENT ******* VALUES IN THE ANS ARRAY WERE MODIFIED TO ACCOUNT 



****** FOR THE DEVIATION OF THE CONVERT ROUTINE 



****** TEMPt83 « U5063J463146340 
AJISlLBJ » 1150631463146314 



TEMP[93 • 1157146314631500 



ANSC9J » 1157146314631463 



10160130 T 0013 



10160140 T 0015 
10160150 T 0018 



10160160 T 0020 



10160170 T 0022 
10160180 T 0026 



10160190 T 0028 



10160200 T 0030 
10160910 T 0033 



10160220 T 0035 



10160230 T 0038 
10160240 t 0Q4Q 



10160250 T 0045 



10160260 T 0048 
10160270 T 0051 



10160271 J 0051 



10160272 T 0051 
10160973 % QQ5 1 



10160?7« T 0051 



10160275 T 0-051 



10160276 T 0051 



40 

41 I 

42 

43 

44 ( 

45 

46 

47 ( 

48 

49 

50 \ 

51 

52 

53 ( 

54 

56 

66< 

5?, 



10160277 T 0051 



10 
11 

12 
13 



14 
IS 



16 
17 
IB 

19 



20 

21 



22 
23 
24 
26 



26 
27 
28 
29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 " 

38 



39 
40 
41 
♦2 



45 
46 
47 
»8 
49 
50 
51 
52 
53 
54 
55 
56 



TEMPtlGJ* 3141314631463147 
ANSC103 * 3141314631463146 



10160278 J 0051 

10160279 T 0051 



10160280 T 0051 



TtMPCHJs 3142631463146315 
AMSC113 ~ 3142631463146314 



10160281 T 0051 

10160282 T 0051 



FILL. ANb[*J WITH O.CTO* OcTl' 0<;T0> OcTO#.OcTO# 



10160285 T 0051 



OCTI* QcTO* 0CT1150631463146340# 



OCT 1157146 3146 31500, OCT 3 14 13 146 3 146 3 14? , 



IOI6O3OO T 0053 



UCT 3U26 31 46 31 46 315# OCT! *0CT1* OCT 11 54000000000000* OCTI J' 



IOI6O3IO T 0053 
39 T S 15 LONG, NEXT SgQ 38 



CVN*l5j 



10160330 T 0C53 



PNQ*16; 

verify; 



10160340 T 0053 
10160350 T 0054 



end; 



10160360 T 0055 



PROCEDURE P17J COMMENT ARITHMETIC OPERATOR * EK 7 NQV 63; 



38 tS 63 LONG, NExT SEG 
10170010 T 0126 



10 



BEGIN 



10170020 T 0126 



INTEGER J»K; 



10170030 T 0126 



REAL Y,Z,K> 



ARRAY XC 1 1 33 ; 

INTEGER PROUEDLHE SUM <J,K>; 
INTEGER J,K; 



START OF SEGMENT ********** 
10170040 T 0000 



40 



11170050 T 0000 
10170060 T OTOT 



10170065 T 0001 



BEGIN 



10170070 T 0001 



SUM* J+K 



end; 



10170080 T 0001 
10170Q90 T 0003 



H» 10«Q*2J 



10170091 T 0006 



j*e; 



.( 

3 
4 

5< 



START QF SEGMENT ********** 39 
10160390 T 0053 



7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 \ 

24 

25 

26 ( 

28 
29 ( 

30 

31 

32 i 

33 

34 

35 ( 

36 

37 

38 i 

39 

40 

4,1 

42 

43 

44 ( 

45 

46 



• 
• 



47 
48 
49 
50 
51 
52 
53 
54 
55 
56 






10170100 T 0008 



h 



9 
10 
11 
12 



13 
14 



f5_ 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 



e 

a 
<j 
o 
Q 

a, 

TO I 

Q 



27 
28 
29 

30 

31 

32 

33 

34 

36 

36 

37 "~ 

38 

39 

40 

41 

42 



43 



45 

46 

47 

18 

49 

SO 

51 , 

B2 

S3 

54 



55 

56 



A> 



y ♦• io.o; 
z* o.2xi; 



X[l3«X[2 3«- X[3]«. 3,0; 



TEMPtlJ* 2*i', 
TEMPC23* J*K; 



TEMPC33* Cj/4)*j; 



TEMPU3* 0*K; 
TEMPf-si* no; 



TEMP[6]«- Y*0> 



TEMPC73* Z*C-0); 
TEMPC83* (W/YWJJ* 



TEMP[9]«- (Y-Y)*2,5; 



TEMPtlOi* Y*2.QJ 

T£MP[U3» (K»j)*(jxl.5)i 

TEMP[12]» (K/Y)*O.0# 

t£mpci33* <-i.5)*(o); 



TEMPtla3*-(YXY) *{-J); 



TtMP[153* Xtl3* X123; 



TEMPtl63*XC33 * SUMCJ#K); 
TEMPC173» Xt23*J.U7tl3J 



TEMPC183*- 1*"000000"; 



COMMENT THE FOLLOWING ANSWERS WEHE MODIFIED TO OBTAIN A CLEAN LIStInT 
***** CONSTRUCT ANS SHOULD BE ANS IS 



***** 



(4-2) *(2*1.5>) 



OCT lC 



OCT10.000000000Q2 



*** 3*3 OCT 33 OCT33,00000000004 
FILL ANSC»J WITH QCT4, UC120* QCT101000000Q000002> OCTO# 



10170H0 T 0009 



10170120 T 0009 
10170130 T 0010 



10170140 T 0011 



10170150 T 0016 
10170160 T 0018 



10170170 T 0022 



10170180 T 0026 
1 1 70190 T 0030 



10170200 T 0034 



10170210 T 0036 
10170?2Q T 0030 



10170230 T 0044 



10170240 T 0048 
10170250 T 0052 



10170260 T 0056 



10170270 T 0059 
10170280 T 0062 



10170290 T 0066 



10170300 T 0071 
10170310 T 0077 



10170320 T 0082 



10170323 T 0084 

10170324 T 0084 



10170325 T 0084 



10170327 T OOSfl 
10170330 T 0084 



START OF SEGMENT ********** 



UCJ2OQOOQ0000Q00000* OcTl, 0CTl# 
QCTlOlOOOOQOOOOOOOa* QCTO» 0CT144* 0CT113l000000000QQ2» 



10170340 T 0086 
10170350 T 0086 



0CT1> OCTI* QCTl2l321i56l35307l* CT 1 i 33300000000004* 



41 



2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 I 

36 

37 

38 I 

39 

40 

41 I 

42 

43 

44 I 

45 

46 

47 i 

48 

49 

50< 

51 

52 

53 i 

54 

55 



10170353 T 0086 



2 
3 
4 
5 
6 



0CT133W QCU, octi; 



10170357 T 0086 



CVN» X§1 



41 T S 18 LONG, NEXT $EG 
10170360 T 0086 



40 



PNO«- 17* 



10170370 T 0086 



VERIFY 



end; 



10i70380 T 0087 
1Q 17Q39Q T 0087 



10 

11 

12 
13 
14 
15 



16 
17 
IS 



40 T S 99 LONG, NEXT S^G 10 



PROCEDURE PIBKOMMEnT ARITHMETIC EXPRESSIONS WITH MIXED TYPES; 
BEGIN 



10180010 T 0~TI6~ 
10180020 T 0126 



T E MPCi:U<-57)x23; T £ MP[2J«- 27+13,27*3; T£MP[33«. 27* 13.27x3; 



10180Q30 T 0i26 



19 

20 



21 



TEMPU3*2,7x3 x3*4x4; TEMPE5 3 *Z ,7x3 + 3 ,4x4; 
TEMP[6]»7/4J T£HP [ f ]»9/2.3j TEMP [6 3-2. 3/2 jTeHPC 93 »27. 3*2/2?. 3PU 



10180040 T 0134 
10180050 T 0140 



22 
23 
24 
25 



26 
27 



28 
29 

30 

31 1 

32 

33 



34 

35 
36 

37 " 

38 

39 

40 

41 

42 

43 



45 
46 
»7 
48 
49 
50 



51 
52 



53 

54 



55 
56 



TfHPC103»6 HOP 9; TZMPC 1 1 3 «- (-8)MQP 1,6; TEmP U23»7.5 MOn C -3 •> J 



10180070 T 0149 



TEMPC133*1.5MOO 0.7; 



10180Q80 T 0157 



FILL ANS[*J WiTh 0cT2000000000002437# QcTll2l026365605076' 



10180090 T 0i59 
START OF SEGMENT +***+***+* 



42 



OCT 11 120626 7534 1220* OCT 112 156 12 172 70244* 

i^cT 11 325546 3 1463 146* C Tii4i6000OOa00O17oT" 



OCT 114 37 23364675157* OCT 1 14 H 1463 1463147' 



10180100 T 0161 
lOlflOjiO T 016T 
I0l80i20 T i& 1 



0CT1151463146314632' QCTlQ* 
OCT 3 14 1463 146 3 14630, OCT 1 f4" 14000UOUOOOCO * 



10180130 T O161 



GC Tll5063l463l463l4; 



10180135 T 0~jTT 
I0l80i37 T O161 



42 t s 13 LONG, NEXT 5£G 10 



CVN«-13; 
PN Q«-,1 8> 



10180140 T 0l6l 
10 180 15 T 0162 



VERIFY 



10180160 T 0i62 



end; 
procedure pl9; comment precedence of arithmetic operators 



3,4.5; 



10180170 T 0162 
10190010 T 0174 



BEGIN 



INTEGER Il*I2*l3*I4*lb*U0,tX*lY; 



10190020 T 0174 
10190030 T t\7T 



>r 



REAL R0>R1*H2,R3#R4#R5#H6; 
A) PHA A1 »A?t 



INTEGER PROCEDURE X(G#h*IX)J 



VALUE G#H#IXI 
INTEGER G»H,Ix; 



BEGIN 



H*6I 

ix«-3; 



x*g; 



end; 



INTEGER PROCEDLRE y(j>IT)j 



VALUE J» IYi 



INTEGER J»IY; 
BEGIN 



Y*J*IY*2; 



end; 



REAL PROCEDURE *(K>L,M»RQjRl»R2yR3 ); 



VALUE K#L#M#R0»R1#R2»R3; 
INTEGER K; 



REAL L#M,R0,Rl#R2»H3J 



BEGIN 



ro*k+l; 

R.i;*K*t; 



r2*k/l; 



r3*kxl; 

2*m; 



END. 



IUI; i2*2; 13*3; i4*4; 15*5; iiono; ix*0; iy*0; 
TEMPCU»ri ♦ 12X13 * 14 "(HO div is); 



TEMPC2]*-I1 + 12X13 * (14 - 110 DIV lb); 



START OF SEGMENT ********** 43 



10190040 T 0000 
1 01 900*5)0 T — OOOQ 



10190Q60 T 0000 



10190070 T 0000 
1Q 1 90 08Q T 0000 



10190090 T 0000 



10190100 T 0000 
1Q190U0 T 0000 



10190120 T 0001 



10190130 T 0002 
LQl&flJJLQ T QOQfl 



10190145 T 0004 



10190150 T 0004 
1Q19Q16Q T 0004 



10190170 T 0004 



10190180 T 0006 
10190190 T 0009 



10190i95 T 0009 



10190200 T 0009 
10190210 T 0009 



10190220 T 0009 



10190230 T 0009 
10190240 T 0011 



10190250 T 0012 



10190260 t 0013 
10190g70 T 0015 



10190280 T 0015 



10190290 t 0018 
101903Q0 T 0025 



10190310 T 0030 



{ 









45 

46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 



TEMPC3]»H + I2*C13 * 14 - 110 OIV 15); 



10190320 T 0036 



TEMPt«l*Il ♦ (12 x 13 * H • IlO OIV 15); 
TEHP[53»(U » 12 x 13 * i« - go giy I5>; 



10190330 T 0042 
10190340 T. 0048 



TEMP[6]«-(I1 + 12 x 13 * 14 - ijO) DIV 15; 



10190350 T 0053 



TEMP£7j«- (Il*I2xi3*3)-U0 DIV 15; 



10190360 T 0059 



TtMP[.8)*(U + 12*13) * 14 - 110 DIV 15; 
TFMPf9]»(U ± 12? x 13 * U ' IIP DIV 15; 



10190370 T 0064 
10190360 T &QZQ- 



TEMPClOlfrll + I2xi3 * 14 - IlO DIV 15; 



10190390 T 0075 



TEMPI 113«-I1 + 12 x 13 * (110 - 14) DIV 15; 
TEM'P[123»I1 + C 12 x i3) * t4 ■ IlO DIV 15J 



10190400 T 0081 
10190410 T 0087 



19 
20 
21 



TEMPtl33*IlO x II +12 MOD XCI1* 12* 13 )xlY*Y( H* I* )*I 1 -12 OIV 



10190420 T 0093 



22 
23 
24 



I5-I1+I3J 

TEMP[14J»CjlQxH»i2 MOjj X ( j 1* j2» 13 ) X Y ( \H, 15 ) » 14" 1 1 QlV 



10190425 t 0102 
10190^30 T 0l04 



25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 " 

38 

39 



is-ii+13); 



10190435 T Olll 



TEMPU5J«-ilU'xIl*l2 MOD X( H# I2# 13 )*Y ( i^# 15 )*I4-jlO djV 
(15-11+13); 



10190440 T 0H4 
10190445 T 0122 



R0*0; Rl*0; R2*0; R3*0; R4«.-jJ R5*5497558l3887; R6*« 2 ; a 2 «.*a«; 



10190450 T 0i25 



TEMPU6)*I3 + I3xl2; 
TEMP[171»I3*I4»I2; 



10190460 T Oi3l 
1Q19Q47Q T 134 



TEMP[183*I3X(I4-12); 



10190480 T 0137 



40 
41 
42 



TEMPI 19l*I4/.I2+I3xi2j 
TEMPt'2o3*I5 MOD 12 + 13/ 



10190490 T 0139 
10190500 T 0143 



TEMPC2134-I3 OIV 12 MOO 12; 



10190510 T 0t45 



46 
47 



TEMP[223«-I3-R6xR4; 
TEMPC23]*R4+I5-RAx9 MOD 4; 



10190520 T 0148 
10190530 T 0151 



49 

so 

51 



TEMPC24J«-(H0-R2+R3xZ(4#2#R0oRI»R2»R3j>R4))7 <R24-6>; 



10190540 T Ol55 



TEMP[253«-22 + (IF 11*0 THEN l2xRb ELSE A2); 
Al* n AA M ; 



10190550 T 0161 
10190560 T 0166 



52 
53 



55 
56 

57 



TEMPt26H*AA«+R5 MOD 7 + lt 



10190570 T 0166 



10190580 T 0i70 



TEMP[27]*A1 + R5 DIV ( 7 + 1 J-687 19 4767 33; 



# # 



^r 



TEMP[28 3«-Z( l*2*R0>Rl J .Rk#R3,R4)xR6; 



10 
11 

12 

'3. 

14 

15 



16 
17 
18 
19 
20 
21 



Si 
E 

3 
O 

Q 

to 1 
Q 






22 

23 

24 

25 

26 

27 

28 

29 

30 

31 !~ 

32 

33 

34 

35 

36 

37 ~ 

38 



39 
40 
41 
42 

43 " 



45 
46 
47 
« 
49 
50 
51 
52 
53 
54 



55 
56 



10190590 T 0i73 



TEMP[29 3«-2(6,3,R1,R2,R3#h«,R5)xR2 + R3«R0xR3; 
TEMPC30 3*U*8-3 + 4.5 + 2i5?/9) 



10190600 t 0178 
10190610 T 0183 



COMMENT AN5WEH5 AND OUTPUT* 



10190620 T 0188 



FILL ANS[*J WITH UC.T2«X» 0<;T23# 0CT237, 



10190630 T 0j88 
START OF SEQUENT »»»»»»*»** 44 



0CT241/ 0CT241* GCT36* 



10190640 T 0189 



0CT65' 0CT4537* 0CT361* 
QCT241* QCT444, OCT2421. 



10190650 T 0i89 
10190*60 T 0f89 



OCT 14* 0CTi2# OCT 1 1* 



10190670 T 0i89 



0CT11» 0CT12* 0CT6, 
BCT10, OCjjLg OCTl* 



QCT1# 0CT6, OCTO, 



0CT47* 0CT2122, 0CT2123* 
OCTO# OCTO, UCT4; 



CVN*30i 
PNQM9; 



VERIFY 



END J 



PROCEDURE P2i; COMMENT BOOLEAN EXPRESSION USING IF CLAySE 



8EGIN 



BOOLEAN A>B*C*D*£; 



INTEGER H#j; 

boolean prqcequre bool (blsubbl* a»b ); 
boolean blsubbl*a»b; 



9EGIN BOOL* A QR b QR NOT BL$UBBl END/ 
BOOLEAN PaoCEOURE SEC&Q0t(8gUBBUA»BJf 

BOOLEAN BSilBBL*A>a; 



10190680 T 0J89 
1019 06 9Q T 0lB9 



10190700 T 0189 



10190710 t 0189 
10190720 T 0189 



44 



30 LONG* NEXT SEG <»3 
10190730 t Oi.M 
18190740 T 0190 



10190750 T 0191 



10190760 T 0191 

JLL-lS 203 LONG. NEXT SF6 10 

10210010 t 0174 



10210020 T 0i74 
10210030 T 0174 



START OF SEGMENT ********** 45 



10210040 T 0000 
10210050 T 0000 



1Q210060 T 0000 



1^210070 T 0000 
10210090 T 0000 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 

11 

12 

13 

14 I 

15 

16 

17 ( 

18 

19 

20 { 

21 

22 

23 ( 

24 

25 

26 ( 

27 

28 

29 ( 

30 

31 

32 { 

33 

34 

35 i 

36 

37 

38 | 

39 



i 
• 



40 

41 ( 

42 

43 

44 { 

45 

46 

47 < 

48 

49 

*>< 

51 

62 

53 I 

54 

55 

56 4 



10210090 T 0004 



1 

2 
3 
4 
6 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



BEGIN SECBQQL *A OR NUT BSUBBL END/ 



10210100 T 0004 



B * FAlSEJ A* TRUE; H* 14; j* 14; C* FALSE; 0" FALSE; E* TRUE/ 
AMF H»J THEN TRUF FLSF FALSFt TFMPT 1 3»RFAL( A . C 47 * tf ) i 



lOaiOUO T 0008 



10210120 T 00-14- 



A* IF T8UL THEN A ELSE B; TEMP[23«- REAL(A.[47»l3 )/ A*TrU E / 



10210130 T 0019 



16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 



37 
38 
39 
40 
41 
42 



43 
44 
45 
46 



«7 
48 



49 
50 



51 
52 
53 
54 



55 

56 



A*IF A THEN 8G0L(B,A,B) ELSE IF B THEN C ELSE O; 
TEMPt33* R£AL(A,C47U3)i H«,H + J| 



A* IF H*J THEN H+J>H-J ELSE A; TEMp[43«- REaL ( A, [4/ J 1 ] ) ; 



A* IF H»J THEN (IF J2H THEN A ELSE B) ELSE IF C THEN A EL*E 0> 
TEMPC5J* REAL(A,C47»n)> 



A* IF A THEN TRUE EQV FALSE ELSE TRUE/ "TEMpt 6 ] 4. REAL (A,[47«lJ)l 



A* IF A THEN H* J ELSE 9} TEMPC7] *■ REAL (Ait«7U3)J 
A»IF H*J THEN B0QL(8»A,B) EQV SECBQQL (B/A/B ) ELSE CI 



TEMP[83 * HEAL (A.[47»U )/ 



A* IF B THEN CH*J) * CH + J) ELSE IF H+J > H-j THEN A ELSE Bj 
TEMP[93<-REALCA.C47ll3)l. 



A* IF A THEN (IF H=J THEN C ELSE A) EQV (H>J) ELSE B; 



TEMPC103* KEAL(A t C47J13J; 

A» IF A THEN C OR Q ELSE £j T£MP[U3«- REAL ( A , [ 47 t 1 3 ) I 



A«"IF B EQV A THEN 3QQL<B/A*B) OR SECBOQlC 8/ A/ B ) ELSE C; 



TEMPU23* REALCA,C47tl3); 

A* IF B THEN H > J OR J > H ELSE IF C THEN D ELSE A* 



TEMPU33* REAL(A.C47: 13 ); 



A* IF A THEN ((IF A OR B THEN C ELSE A3 OR U AND 8)) ELS^ £ * 
TEMFC14J* REAL(A.C47(U?J ._ 



A«-IF 8 THEN B0QL(B/A/8) ANQ SECBQQL( B* A> B 3 £LS£ A AND B/ 



TEMPU53*R£AL(A t C47»l3)J 



A* IF H X J THEN (IF A OR B THEN C ELSE A) AND (B OR D) ELSE E; 
TEMPC16 3«-REAL(A.C47M3 )/ A'TRUEl 



10210140 f 0024 
102l0i50 T 0029 



10210160 T 0032 
10210170 T 



C^0T9~ 
10210180 T 0045 



10210190 T 0047 



10210200 7 0052 
10210310 T 0657 



10210220 T 0063 



10210230 T 0065 
10210340 T 0072 



10210250 T 0074 



10210260 T 0079 
10210270 T 0081 



10210280 T 0086 
10210290 t 0092 
10210300 T 0094 



10210310 T 0099 
10210320 T OiOl 
10210 330 T 0l07 



10210340 T 0109 



10210350 T 0114 



10210360 T 0H6 
10210370 T 0121 



A* IF A OR & THEN NOT B ELSE El TEMPC173* HEALC A t U7 J 1 3 3 J 



a* true; 



10210380 t 0125 
10210390 t OTTO" 



• • 



h 



1 

2 
3 
4 
5 
6 
I 
8 
9 
10 
11 
12 
13 
14 

«_ 
16 



17 
18 
19 
20 
21 
22 
23 



24 
25 



26 
27 



28 
29 



30 

31 ~ 

32 

33 

34 

35 



36 
37~ 
38 
39 



40 
41 
42 
43 " 



*5 
46 
47 
48 



49 

SO 



51 
52 



53 
54 



55 
56 



A* IF A THEN A EQV B ANU NOT C ELSE IF C THEN A ELSE C * 



10210400 t Oi3l 



TEMP[I83«- REALCA,U7»U)J 

A* IF A THEN H.C45t33 > J. [42163 ELSE e; 



10210410 T 0136 
10210420 T 013B 



TEMP[19]«-REAL(A t U7lll>; 



10210420 T 01^2 



A* IF A THEN (IF H, [45*33 > <J.[42»63 • H»[45»33) THEN C 
ELSE A ) OR NOT (A OR 8) ElSE A* TEMPt 20 1*REAL( A . U7 » 1 ] ); 



10210430 T 0j44 
10210440 T 0146 



FILL ANS[*1 WITH OCT 1* OCTi* OCTl> QCTl> OCTO> OCTl# 



10210450 T 0^54 



0CT0> 0CT1* QCT1* QCT1* OCTO> QCTl* UcTl* 



START OF SEGMENT ********** 
10210460 T 0l56 



46 



OCtO* OCtOj OCTO/ OCTl* OCtO* 0CT1* OCTW 



CVN «• 20* 



10210480 T 0i56 



PNO 4- 21; 

VERIFY 



10210490 T 0157 
1O210S00 T 0157 



END* 



10210510 T 0157 



PROCEDURE P22) COMMENT RELATIONAL OPERATOR < 



45 tS 162 LONG, NEXT SEG 
3i!>»btW I 2 20Q I Q T 0174 



10 



BEGIN 



10220020 T 0174 



INTEGER I0#IU.IN1#I2, IN2MMAX#1MIN* 



10220030 T 0l74 
START BF SEGMENT ********** 



47 



INTEGER PROCEOURE X(K)i 



10220040 T 0000 



INTEGER K; 
BEGIN 



10220050 T 0000 
10220060 T 0000 



X*K+2* 



10220070 T 0000 



end; 

REAL PROCEDURE Y(l)* 



10220080 T 0001 
10220090 T 0003 



REAL Li 



10220100 T 0003 



BEGIN 



Y» L + 3»6J 



10220110 t 0003 
10220120 T 0003 



END* 



10220130 T 0005 



io*o; 1 14-1 ; ini*-i; 12*2; iN2«--2; 



1G220140 T 0008 



3 



10210470 T 0'i'S6 
46 T S 20 LONG, NEXT Sfg 45 



39 

40 

4,( 

42 

43 

44 { 

45 

46 

47 < 

48 

49 

sot 

51 

52 

53 I 

54 

55 

56 i 

57. 



2 

3 

4 

s 

6 
7 
8 



lMAX«--i>/<97tJi3b 13887; I M IN *- 5 49 7 55 8 1 3887; 
TEMPC13MF 0.0 < 1.0 1 HEN 1 ELSE o; 
TEMPC23+IF -UP < 10 THEN l ELSE OJ 



TEMP t 33* IF 4.314P63 < X(U THEN l ELSE 0* 



10220150 T 0013 



10220i60 T 0015 
10220170 t 0018 



10220i80 T 0022 



TEMPC43* IF 4.314963 < I0,£47il3 THEN 1 ELSE 0;" 
T£MPC'i3*lF 1.75946 < » " THEN 1 ELSE 0; 



10220i90 T 0027 
10220200 T 0031 



10 
11 
12 

13 
14 
15 



TEMP[6]«-1F -1,750-30 <I1 THEN 1 ELSE 0; 



TEMPC7]*IF XI < INI THEN 1 ELSE 0; 
TEMPt8]»lF 12 < YC-3.0) THEN 1 ELSE 0} 



10220210 T 0035 



10220220 T 0039 
10220230 t 0042 



16 

17 
18 
19 
20 
21 
22 



23 
24 
25 
26 
27 
28 



29 

30 



31 
32 



33 

34 



35 
36 

37 ~ 
38 



39 



TEMP[9]MF IN2 < 10. [9*39] THEN 1 ELSE Q} 



TEMPC103*IF *IMAX < " •» THEN 1 ELSE Oi 
TEMP[U3»IF IMIN < (2x83 THEN 1 ELSE O; 



TE«PC12l*IF X c 1 > < YC2.4) THEN 1 eLSe 0/ 



TEMP[133*1F XC2) <Il.[45.3;j THEN 1 ELSE 0; 
TEMPCU3-IF YC3,4) < "0 W THEN 1 ELSE o; 



TEMPC15UIF YC1) < C 10/53 THEN 1 E^E 0' 



TEMPU33* IF 12, [42*63 < IMAX,[1»33 THEN 1 EL$E Of 
TEMP[l73«- IF IHAX. [45:33 < "»" THEN 1 ELSE Oi 



TEMPC183«-IF IM A X, [9:393 < (9 DI V 23 THEN 1 EtS L 0' 



TEMPU93*IF "AA" < "ZZ" THEN 1 ELSE 0; 
TEMPC2p3»IF "MMM" < ( lop HOD 5U THEN 1 ElSE Qj 



10220240 T 0056 



10220250 T 0060 
1Q22026Q T Qp64 



10220270 T 0068 



10220280 T 0073 
1Q22Q290 T 00^8 



10220300 T 0082 



10220310 T 0087 
1Q22Q32Q t 0092 



10220330 T 0096 



10220340 T OlOi 
10220350 T 0104 



40 
41 
42 



TEMP[2lJ*IF (12 +5) < (4? - l Q ) THEN 1 ELSE Oi 



10220360 T 0109 



45 

(6 
47 
48 
49 
SO 
51 
52 
53 
54 
55 
56 



COMMENT ANSWERS ANO OUTPUT; ~ 
FILL ANSt*3 WITH OCTl, OCTl* QCTO» 



102203^0 T 0H3 
10220380 T 0113 



OCTO»DcTO* UcTl* 
OCTCOCTO* OCTl* 



START OF SEGMENT ********** 
10220390 T DTH5 
10220«00 T 0115 



48 



OCTO* OCTl* OCTl» 



10220410 T 0115 



OCTO* QCTO* OCTO* 
OCTO* OCTl* 0CT0# 



10220420 T 0115 
10220430 T 0115 



OCTl* OCTO> OCTl; 



10220<|40 T 0115 



# • 



46 T S 21 LONG, NEXT SEG 



47 



CVN*2i; 



PNO+22; 



10220450 T 0115 
1 Q2 2 046Q T 116 



VERIFY 



10220470 T 0U7 



END* 



10220480 T 0117 
«7 T8 127 LONG, NEXT Sffi 10 



10 

11 

12 

13 

14 

,16 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 



PROCEDURE P23/ COMMENT THE rtELATlGNAL OPERATOR 1$)} 



10230010 T Ol7ft 



BEGIN 
BOOLEAN 



a#b#c; 



10230020 T 0l74 
10230030 T 0174 



START OF SEGMENT ********** 



49 



integer h>j#k; 

a» true; b<-false; hmsj j» is; k» 30; c»true; 



10230040 T 0000 
10230050 t 0000 



a*if a then hsj else b; tempcij «■ real ca,[47:i3); 



10230Q60 T 0004 



A«" IF A THEN H i j EflV H 5 j ELSE 8; TEMPC23* REAlC a. 1 47 * 1 3 ); 
A-HSj; TEMPC33 «• REAL C*.U7m)J 



10230070 T 0009 
10230QBQ t 0015 



A«-H<J EQV H<J/ rEMPC43«-REALCA,C47:i3); 

A* If A THEN H + JS K OR H<j ELSE C) T£MPt5J * REAL( A, t47 1 13 ); 

A» IF B THEN A ELSE H-JSK; TEMPfA 3»REAL( A , C47 1 1 ] ) J 



10230090 T 0019 



10fi30i00 t 0023 
1Q23Q11Q T 0030 



A«.H + JSK OR H*j; TEMPC73<"REAL(A,t47«l3); 



10230120 T 0035 



A* IF A THEN H*,J AND HSJ ELSE C; TEMPt8 ]*R£AL( A , C 47 l i ] ) ; 
A»H+K*J AND HSKJ TEMPC 9 ]»REAL( A. C47 »1 3 )J 



10230130 T &04"0~ 

1023014Q T On46 



A* IF A THEN NOT H < K ELSE NOT B; TEMPtlO]* REAL C A . [ 47 j l] ) ; 



10230150 j °°Sl 



45 
46 
47 
48 
49 
50 



A* NOT HSji TEMPClU*REAL(A,C4?a3); 

FILL ANS[*3 WITH OCTl> UCTl* OCTl» OCTIj QCTl* OCTl* OCTj* 



10230160 T 0056 
10230170 T Q60 



START OF SEGMENT ********** 



50 



51 
52 
53 
54 
56 
56 
5? 



OCTO* OCTQ* 0CTl# QCTC* 



50 



10230180 T 0062 

U LONG, NEXT SE6 49 



cvnmi; 



10230200 T 0062 



PNG*23I 
VERIFY ENDj 



10230200 T 0062 
10230210 T 0Q63 



49 tS 68 LONG, NEXT SEG 



10 



>T 



l 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



16 

17 
18 
19 



20 
21 



22 

23 

24 

25 ~ 

26 

27 

28 

29 

10 

31 " 

32 

33 

34 

35 

36 

37 " 



40 

41 



42 
43 



45 
46 
47 
(8 



49 
90 



51 
52 



S3 
54 



55 

56 



PHCCEOURE P24; COMMENT THE RELATIONAL OPERATOR C-j; 



1024001C T Oj.74 



BEGIN 



boolean A»e»c; 



10240020 7 Ol7fl 
10240030 T 0174 



INTEGER H»J»K; 

a* true; b*falss ; h» is; j» is; k» 30; c» true; 



A* IF A THtlN H«'J ELSE d* TEMP [1] ♦ REAL (A.U7UJ); 



A*IF A THEN H*J EQV H«»V ELSE B; 
TEMP[23»REAL(A.U7;1J); 



A* h»j; TEwP [33 * REAL(A); 



A + H*J EQV H*j; TEMPC4]*REAL CA. £47*13); 

A* IF A THEN H+4S5 OR H»J ELSE B i 



START OF SEGMENT ********** bl 

10240040 T 0000 
10240050 T 0000 

10240060 T 0004 

10240070 T 0009 
10240080 T 0013 

1024QQ90 T 0015 

10240100 T 0018 
10240110 T 002 3 



TEMP[53«- HEAL (A, [47: U )} 



10240120 T 0027 



A* IF B THEN A ELSE H+«*4 ; TEMP [6] ♦ REAL (A); 
A» RjOsK OR Ha j j TEMP t_El± HEALCA); 



102401-30 T 0C29 
10240140 T 0034 



a* if a then h=j and h=k else c; 



10240150 T 0039 



TEMP£83*REAL(A,C47!13); 

A» H + J«K AND H»J ; TEMP [93 » REAL C A , [47 « 1 3 ) } 



10240160 T 0042 
10240170 T 0045 



A* IF A THEN NOT h = K El s E B; TeMP[ 10 3*REALC A, [ 47 J 1 ] ) ; 
A*NOT H»j; IEMPtll]*REAL(A.C47lU)i 



FILL ANS[*J WITH OpTl* UcTl* OcTl* OpTl* OpTl* OcTO' OpTl' 



10240180 T 0050 
10240190 T S0T5~ 
10240200 T 0058 



START OF SEGMENT ********** 



52 



QCTO* OCTl» 0CTl» UCTq; 



10240210 T 0060 
52 T S U LONG* NEXT SgQ 



51 



cvn «- n; 



10240230 j 0060 



PNQ* 24J 
VERIFY 



10240240 T 0061 
10240250 T 0061 



end; 



10240260 T 0061 



PROCEDURE P25; COMMENT RELATIONAL OPERATOR i 



31 T S 66 LONG, NEXT SEG 10" 
3,3.5,1; 10250010 T 0l74 



BEGIN 



10250020 T 0l74 



# • 



h 



10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 



28 
29 



30 

31 " 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 



45 
46 
47 
18 



49 

SO 



51 
52 

a 

54 



55 

56 



INTEGER I0#I1»IN1*i2#IN2#1MAX#IMIN; 



10250030 T 0j.M 



INTEGER PROCEDURE XCK); 



START QF SEGMENT ********** 
10250000 T 0000 



53 



INT£G£R *; 



10250050 T 0000 



BEGIN 



X»K+2; 



10250060 T 0000 
10250070 T 0000 



end; 



10250080 T 0001 



REAL PROCEDURE Y<L)J 
REAL It 



10250090 T 0003 
10250100 T 0003 



BEGIN 



10250110 T °003 



Y«-L + 3.6i 



end; 



1 02501 20 T 0003 
10250130 T 0005 



lO«-0; 11*1; 12*2; iN2«--2; 



10250140 y 0008 



I MAX «.5497558 1388 7; IMIN*'549 7558l3887; 
TEMPC1]»IF 0.0 i 1.0 THEN 1 £LS£ OJ 



10250J50 T 0012 
10250160 T 0014 



TEMP[2]«-IF - 1.0 > 10 THEN 1 ELSE 0; 
TEMP[33* IF 4,314*63 i X(i) THEN l ELSE Qi 
TEMPC43»IF -4.314963 £ I0.C47»l3 THEN 1 ELSE Q} 



10250170 J 0017 



10250^0 T 0021 
10250i90 T 0026 



TEMP[5]* IF -1.750-30 > " " THEN 1 ELSE ; 



10250200 T 0030 



TEMPC6U IF 1.75P-3Q I 10 THEN ELSE U 
TEMPC73»IF II i INI THEN 1 ELSE 0; 



10250210 T 0034 
10250220 T 0038 



TEMPC8]«-IF 12 > YC-3.0) THEN 1 ELSE 0; 



10250230 T 0042 



TEMPC9J* IF IN2 2 I0.C9J393 ThEN 1 ELSE 0; 

TEMPtlQlfrlF IMAX 2 « " THEN 1 ELSE OJ 



10250240 T 5054" 
10250250 T 0058 



TEMPC11 J«-IF IMIN > (2 x 8) THEN 1 EI - S E 0; 



10250260 y 0062 



TEMP [ 12 3 ♦ IF XC3) Z Y(l,4) THEN t ELSE 0) 
TEMP[i33» IF X(2) i U t C«»*33 THEN 1 ELSE OJ 



10250270 T 0066 
10250280 T 0071 



TEMP[143«-IF Y(3,4) i "0" THEN 1 ELSE 0; 



10250290 t 0076 



TEMPC153*|F Yd, 6) * (lO/J) THEN 1 ELSE 0; 
TEMPC163* IF I2»C42»61 * ImAX.CHI)' THEN 1 ELSE QJ 



10250300 T 0080 
10250310 T 0Q93 



TEMPC17J* IF IMAX. [4'5SiJ > THEN 1 ELSE OJ 



10250320 T 0Q98 



J& 



m • 



h 



9 
10 
11 
12 
13 
14 
IS 
16 
17 
IB 



19 
20 



21 
22 



23 
24 
25 
26 



27 
28 



29 
30 



31 
32 
33 

34 
35 
36 

37 " 

38 

39 

40 

41 

42 

«3 



45 
«6 
47 
18 



49 
50 
51 
52 
S3 
54 



55 

56 



TEMPU8J* IF IMAX.[9:39J > (9QIV 2) THEN t ELSE Qi 



TEMP[193«-IF «AA" Z "22" THEN i ELSE 0; 
T£MPC2o3»IF "MMM" j ClOO MOD 51) THEN 1 ELSE 01 



TEMP[2lUlF (12 + 5) > («,7'-30) ThEN 1 ELS£ 0; 



COMMENT ANSWERS AND OUTPUT; 

FILL ANSC*3 WITH OCTO* OCTO> QCT1* 



OCTO# OCT0» OCTO# 
QCTl* OCTl* OCTO* 



OCTl* OCTO' OcTi/ 



0CT1# OCTl* OCTl* 
OCTl* QCTO^ QcTl, 



OCTO# OCTl* OCT i; 



CVN»21J 



PIM0«-25; 



verify; 
end; 



PROCEDURE P26; COMMENT THE RELATIONAL OPERATOR <>># 
BEGIN 



BOOLEAN 



a#b*c; 



REAL 



h> jf k; 



a* true; b* fauSe; c* true; h«- 29/2; j* 29/2; ««• 29/1; 



a* if a then h>j else a ; tempci3*real(a.C47iu)) 



102b0330 t 0102 



10250340 T 0107 
10250350 t OilQ 



10250360 T Oi 15 



10250.370 T 0119 
10250380 t 0119 



10250390 T 0i2l 
102504 00 T 0121 



A»IF C THEN H>J EQV H>J ELSE 8; TEMP £23»REaL( A. t47 1 13 ); 
A*H>Ji TEMP[3]«-REALCA.C^7»l3); 

a*h>j e«v j>h;tempc43>rlal<a,c#?u3)i 



A»IF A; THEN H»g>K QR H>4 Efe»E, Ci TEMFI53»REAL( A, t«7 1 1 ] ?j 

A* IF B THEN C ELSE H-J>K; TEMp[6 ] <-REAL( A. [ 47 » U } ; 



10250410 T 0i2l 



10250420 T 0121 
10250430 T 0121 



10250440 T 0j2l 



54 T S 81 LONG, NEXT SEG 53 
10250*150 T 0^31 



102b0460 T 0l22 



10250470 T 0123 
10250480 T 0123 



53 T S 130 LONG, NEXT SEG 



10 



10260010 T 0174 
10260020 T 0174 



10260030 T 0174 



START OF SEGMENT ********** 
10260040 T 0000 



55 



10260050 T 0000 



10260060 T 0006 
10260070 T 0011 



10260080 t 0017 



10260090 T 0020 
10260100 T 0025 



10260H0 t 0031 



li 



START OF SEGMENT ********** 54 



ft- 



A«-H + J>K OH H>K ; TfcMP[7J*«EAL(AtU7llJ); 



10260120. T 0037 



A*IF C THEN H>J ANO H>J ELSE B ; TEMPC83 *REALC A. C 47 U ]"jT 
A»H+K>J AND H>K; TFMPC9J»RrAL(A.C47tll)J 



I0260i30 T 0042 
16260140 T 0048 



A* IF C THEN NOT H>K ELSE NOT Bi TEMP[ 1 Q ]*REAL( A , t 47 J 1] ) ; 



10260150 T 0053 



9 
10 
11 
12 
13 
14 
15 
IS 
17 
18 
IS 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 



34 
35 
36 

37 " 

38 

39 

40 

41 

42 

43 " 



45 
46 
47 
48 



49 
JO 



51 
52 
53 
54 



55 
56 
87 



A* NOT H>JJ TEMPcil3*REALCA,C47Un; 

FILL ANS[»3 WITH OcTO* QcTl> OpTO* OCT l»OCTO»QcTO» OcTQ* 



QCTO» QCTQ> 0CT1# OCTi; 



CVN* 11 



PN0*26; 
VERIFY 



end; 



PRQCEOURE P27J COMMENT THE RELATIONAL OPERATOR (*)J 



BEGIN 



BOOLEAN A* B, O 



integer h> j, k ; 

a* true; b* falsei h* 20; j* 20; k* 40; c* true; 

A » IF A THEN H*J ELSE Cj TEMPU3* REAL (A.U7»13)J 



A*- TRUE/ 



A* IF A THEN H*U EQV HtJ ELSE B* T£MPt23* REALC A. U7 J 1 3 >J 
A» H * JJ TEMPC33» REAL (A)* 



A*H*J EQV h*Jj TEMPC43* REAL (A,C47;i3); 



A* IF A THEN H+W/Kx2 OR'H>W ELSE Zi 
TEMPC5] * HEAL <A..[4rt U)* 



i0260 l 60 T 0058 
102601 70 T 0061 



START OF SEGMENT ********** 



56 



10260190 T 0063 
56 tS 11 lQNG, NEXT SEG 55 



10260200 T 0063 



18260210 T 0064 
10260320 | 0065 



10260230 T 0065 



55 TS 69 LONG, NEXT SEG 
l Q270Q*Q T 0174 



10 



10270Q20 T 0174 



10270Q30 T 0174 
START OF SEGMENT ********** 



57 



10270040 T 0000 



10270050 T OCOO 
10270Q60 T 0004 



10270Q70 T 0009 



10270080 T 0010 
10270090 T 0016 



10270100 T 0019 



10270110 T 0023 
10270120 T 0028 



A* IF B THEN A ELSE H + J * K ; TEMPC63 <■ REAL C A« 1 47 » 1 3 ) J 



10270130 T 0030 



A* H + J#« OR H, [45*13 X 0,145113* TtMP£7j4. REAL< A, C47 1 1 J ) ; 

a* true; 



10270140 t 0036 
10270150 T 0042 



A ♦ IF A THEN H*J AND H*J ELSE C; TEMPC83* REAL C A , U7 : 1 ] ) ; 



10270160 T 00«3 



56 ' 



m • 






2 
3 
4 
5 
6 
7 



9 
10 
11 
12 



13 
14 
IS 
16 
17 
18 
19 
20 



21 
22 
23 
24 



25 
26 



27 
28 



29 
30 



31 
32 
33 
34 
35 



36 

37 " 



38 
39 



40 

41 

42 

43 " 

44 

45 

46 

47 

«8 



49 
50 
51 
52 
53 
54 



55 
56 



A* H + K t J aND H * K; TEmP [93«- REAL (A.[47»l3j; 



10270170 T 00«9 



A* IF A THEN NOT H/K ELSE C J TEMPC 10 3*REAL( A. [47 I'll)) 
A*- NOT HjJj TEMP[ll3» HEALC A . [ 471 1 3 ); 



10270180 T 0054 
10270190 T 0059 



A* IF A THEN H.U7U3 * H x (J+2) ELSE FALSE; 



10270200 T 0062 



TEMPC123* REALCA.C47I13); 

A* NOT TEHPClQJ X TEMPlXlJj TEMPU33* REALC A , C 47 J 13 ) ; 



10270210 T 0066 
10270220 T 0069 



A* CTEMPtlOJ x TEMP'CllJ MOy . TENP [ 1 1 3 ) > (H + ( JxH. U5 X 3 3 )/2 ) ; 



10270230 T 0074 



TEMPCU3* RIAL CA,C47IX3>; 

A* H ABCO M * " ww ; TEMP[l53*RSAL(A.[47ll3)j 



1S270240 T 0080 
10270250 T 0062 



A «- "ABCtiEF" t "JKLMNP"* T£MP[i63 ♦• REAL C A , [ U7 t 1 3 > ; 



10270260 T 0086 



FILL ANS[*J WITH QCTO, OCTif OCTO, QCT1# QCT1* QCTO, QCTC 7 ' 



10270270 t 0089 
START OF SEGMFNT ********** 



56 



QCTO' OCTl' 0CT0» UCTl* OCTl* 0CT0> CcU' OC T i' OCTl* 



10270280 T 0091 



CVN» la; 



58 T S 16 LONG, NEXT 5EG 
10270300 T 0091 



57 



PNO* 27 



10270310 T 0092 



VERIFY 



end; 



10270320 T 0093 
10270330 T 0093 



PROCEDURE P28; CUMMENT LOGICAL OPERATOR NOT 
BEGIN 



17573-72T' 



57 tS 100 LONG, NEXT SEG 10 
10280010 T 0~iT7i 



10280020 T 0174 



INTEGER 10^ IMAX; 



10280030 T 0174 



ALPHA AA^ABjACjAOJ 



START 8F SEGMENT ********** 59 



10280040 T 0000 



BOOLEAN T'F; 



10280050 T 0000 



BOOLEAN PROCEDURE X(K); 
BQ8LEAN k; 



10280060 T 0000 
10280070 T 0000 



BEGIN 



10280080 T 0000 



X «■ K AND TRUE; 



eno; 



10 «• 0; IMaX* 1023; aa*"a"; ab<-"b"; AC*"C"; AD«- »'D"; 



10280090 T 0000 
1028Q1&6 T 0001 



10280H0 T 0003 



• • 



t*true; f«-false; 



10280120 T 0006 



1 

2 

3 
4 
5 
6 
7 
8 
9 
10 

11 



TEMP[13«-REAL (NOT TRUE)' 
TEMPC23»REAL (NOT FALSER 



10280130 T 0010 
1 0280140 T 0Q12 



T£MPC3]*REA1- CNOT fflQCii_LAN OMJUJUi 



in?flOt^n t oou 



TEMPC43*REAL (NOT (BOOLEAN (10))}; 



10280160 T 0016 



TEMP[5J*REAL (NOT X(TRUE)) ; 
TEMP[6J*REAL (NOT X(FALSE)) ; 



10280170 T 0018 
10280180 T 0020 



13 

14 
15 



TEMPC7J*REAL (NOT AA < A8 ) J 



10280190 T 0023 



16 
17 



TEMPC8]*REAL (NOT AA S AA) ; 
TEMP['9]«-REAL. (NOT AC* AD) / 



10280200 T 002b 
10280210 T 0027 



19 

20 
21 



TEMPUOHREAL (NOT AO 2 AC) 



10280220 T 0029 



22 
23 



24 
25 
26 



TEMPtllJ*REAL(NOT AD > AC) ; 
TEMP[12'J»REAL (NOT AD *A'D); 



10280230 T 0032 
10280240 T 0034 



27 
28 



29 
30 



TEMPC133*REAL (NOT (IF AA * JMAX THEN TRUE EL*>E PAL^E)); 



TEMPtUJ* REAL (NOT T AND F); 
TEMPC153*R£'AL (NOT T OR F); 



10280250 T 0036 



10280260 T 00^0 
10280?70 T 0043 



31 
32 
33 
34 
35 
36 



COMMENT **** TEMPC16)*R£AL (NOT T IMP F) ****CHAM»E QCT TO TrU£; 



TEMPU73 + REAL (NOT T E«V F)> 
TEMP[18J » REAL ( NOT T , H a 7 : 1 3 ) > 



10280280 T 0045 



10280290 T 0045 
10280300 T 0048 



37 

38 
39 

40 
41 
42 
43 



TEMPC193+ REAL (NOT T *U6.13); 

FOR fOTl STEP 1 UNTIL 19 QO T£MP [ 103 *TEMP C iO 3 . [47 > 1 3 ; 



COMMENT ANSWERS AND OUTPUT; 



10280310 T 0050 



10280320 T 0053 
10260330 T 0059 



45 

46 
♦7 
48 



49 
50 



51 
52 
S3 
54 



FILL ANS C*3 WITH OGTO* GCTl, 0CT0# 



10280340 T 0059 



QCT1* OCTO* OCTl, 



START OF SEGMENT ********** 
10280350 T 0061 



60 



OCTQ, 0CTO# 0CT1* 



10280360 T 0061 



OCTO* ■ OCTO* OCTl> 
QCTl> OCTQf OCTQ» 



10280370 T 0061 



102 8 3 80 T 00 6 1 



55 

56 



QCTO* QCU# OCT0# 



10280390 T 0061 



octi; 



10280400 T 0061 



57J 



h 



10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 



22 
23 
24 
25 



26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 



37 
38 
39 
40 



41 
42 



45 
46 
47 
48 
49 
SO 
51 



52 

53 

54 
55 



56 
57 



60 



19 LONG, NEXT S£G 59 



CVNMV; PN0«-28i VERIFY 



END' 



1028OU0 T 006t 
1, 2 8 420 T 0063 



59 T S 67 LONG, NEXT SEG 10 



PROCEDURE. P29* COMMENT THE LOGICAL OPERATOR AND / 
BEGIN 



10290010 T 0174 
10290Q2Q T 0174 



BOOLEAN A* B; 



1O29OQ30 t 0174 



INTEGER MJJ 



START OF SEGMENT ********** 61 
10290040 T 0000 



BOOLEAN PROCEDURE BAND l B ANDB ); 



BOOLEAN 8AN06* 

BEGIN 



bAND* BANDB QH TRUE; 



end; 

INTEGER PROCEDURE TfrQBANQC TWQB ) i 



INTEGER TWOB; 



BEGIN 



TWQBAND* THQB+5; 



end; 



A* TRUE* 8* FALSEJ H«- 1** 4+ 7i 

A» TRUE AND FALSE; TEMPIU* REAL( A. £47 1 1 3 ? ; 



A* TRUE AND NOT TRUE; TEMP[2]<- REALCA.[47:i ] ) ; 



A* TRUE ANO TRUE AND TRUE* TEMP[3J * R£AL (A , [47 1 1 3 ); 
A* B AND Si TEHPC4J» REALC A. [47 * 13 ); 



A* B AND NCT B; TEMP[5J* REALC A . [47 J 1 ] } ; 



A* A AND B AND BJ TEMPC6J* REAL C A , [4* I U >) 

A* BANOCTRUE) ANO BANOCFALSE); TEMPC7J* RE ALC A*[47 » 1 3 )} 



A* BANDCA) AND NOT BAND (B); TEMP[83* REALC A , IU7 » 1 ] ) ; 



A* BANOCTRUE) aNq bANOCA) ANO NOT Ai TEMP[93* REAL (A , [47 1 U >J 
A» H»j>TW06ANQ€H) AND H>Jj TEMP£103» REALC A, [47 »1 J )j 



A*- H-J/J AND NOT J>h; TEMPtll]* RE AL C A . [ 4 7 : 1] ) > 



10290050 t 0000 



10290060 T 0000 
10290070 T OQOO 



10290080 r 0000 



10290090 T 0001 
10290100 T 0003 



10290H0 t 0003 



10290120 T 0003 
10290130 T 0003 



10290140 t 0005 



10290150 T 0007 
10290160 T 0011 



10290i70 T 0014 



10290180 T o~oW 
10290190 T 0022 



10290200 T 0025 



10290210 T 0029 
10290220 T 0033 



10290230 T 0038 



10290235 T 00*2 
10290240 T 0048 



10290250 T 0053 



40 

41 < 

42 

43 

44 ' 

45 

46 

47 

48 

49 

50 ' 

51 

52 

53 I 

54 

55 

H< 

57 



h 

2 
3 



A*' H + j>H AND H>TW0BAM3 C5> AND TWOBAND(0)< TWUBAND(l); 



10290260 j °058 



TEMPC12J* HEAL (A.[47UJ)> 

A* (TRUE AND TRUE QR TRUE) AND (B AND A); 



10290270 T 0063 
10290280 T 0066 



TEMPC13 ]«■ HEAL CA,147U J )> 



10290290 'y 0068 



A* (H-J/J AND NOT B>J> AND (BAND(A) OR NOT TWOBAnD (3)>H)> 
TEMPC143* REALCA.U7U3); 



10290300 T QQ71 
10290310 T 0076 



10 

11 



A* (TRUE AND FALSE) AND (H+J>H) AND (BAND(A) AND NOT H< 



10 29 032q t 00^8 



13 
14 



TWOBANDCO))* TEMP [153* REAL (A , C47* 13 ) i 

A» H.C45: 3J>H.C»5«23 ANO J.£45»33 * J.t45»l3j 



10290330 T 0081 
10290340 T 0086 



16 
17 
18 
19 
20 
21 
22 
23 
24 



TEMPU63* REAL(A*t47:U); 



1029035Q j OO'O 



A«-H.[45»33> ThDBANC(5) AND NOT J.C45U3>0 ; 
TEMP[173» HfcAL(A.[<i7U3); 



10290360 T 0092 
10290370 T 0096 



A*"hUU5'l3 * AND J . C *^b * 33>0 AND Bi TEMPC183* REAlC A , [ 47 » 1 J )i 



IO2VO38O T 0098 



25 
26 



27 
28 



29 

30 



31 
32 
33 



FILL ANSC *3 WITH QcTO> OcT0> QcTl* QcTQ# OcTO* OcTO' OcTi* 



10290400 T O1O4 
START OF SEGMENT ********** 






0CT0» OCTl* OcTl* OCTO* OcTl# GcTQ* 



10290410 T O1O6 



OCTO, OCTO* 0CT1* OCTO# QCTOi 



10290420 t O1O6 
62 TS 16 LONG, NEXT SEG 



61 



34 
35 



37 

38 



CVN<- 18 



10290440 T 0j06 



PNQ* 29 
VERIFY 



10290/|50 f 0107 
10290460 T 0107 



40 
41 



»2 
43 



END/ 



10290^70 T Oi07 



4S 
46 



47 
48 



49 
50 



51 
52 
53 
54 



55 
56 



PROCEDURE P30j COMMENT THE, LOGICAL OPERATOR OR; 



61 T S HI LONG, NEXT S£G 
10300010 T 0174 



10 



BEGIN 



10300020 T 0174 



BOOLEAN A»BJ 



10300030 T 0174 
START 8F SEGMENT ********** 



63 



INTEGER H'JJ 



10300040 T 0000 



BOOLEAN PROCEDURE ONEOR (PARAl)J 
BOOLEAN PARA 1 J 



10300050 T 0000 
10300060 T 0000 



BEGIN 



10300070 T 0000 



>r 



i 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 



26 
27 



28 
29 

30 

3'" 
32 



33 
34 
35 
36 

37 " 
38 



40 

41 



♦2 

43 " 



45 
46 
47 
48 
49 
50 
51 



52 
53 



54 
55 



56 
57 



oneor*- true and parai;end> 



INTEGER PROCEDURE TWOOR (PARA2); 
INTEGER HARA2J 



BEGIN 



TrtOQR* PARA2+2 > EWDJ 

A*TRUE i 8* FALSE I H«- 14 ; J* 7; 



A* TRUE OR FALSE; TEMPC1] «■ REAL (A); 



A*TRUE OR NOT TRUE; TEMPC2 3*REALC A, [47* 13 )J 
A* TRUE AND TRUE OR TRUE; TEMPC33* REAL (A) i 



A*- 8 OR B ; TEMPC43* REAL (A.[47!l3)> 



A* A OR NOT B } TEMP £53* REAL CA,C47»13)* 

A» A AND B OR B ; TEMP C 6 3 4. REAL iA*lM±±l2l A-TRUEJ 



A * Q NFOR (A) CR QNEQR (B)i TFMPC7Jv RFAL rA T [47:1 3); 



A «■ ONEOR (A) OH NOT QnEQR (A); TEMPC8 3*REAL( A . [47 i 1 3 H 



A* 0NE06 (8) AND QnEOR CA) OR ONEOR(B); 
TEMPC93*. REAL (A,[4'7:i]')J 



A* H+J<TWQ0RC3) OR H<j; T£mP[1Q3«- REAL CA); 



A»H-J*J ON NUT H>j ; T bMPLUJ* REAL (A,U7I1J); 

A* H+J>H AND H>J OR J<h ; TEMP 1123 ♦ REAL (A); 



A* (TRUE AND TRUE OR TRUE) OR (B OR 8); 



TEMPUJ)* REAL CA,[47UJ>i 

A* CH-J * J OR NOT H>J) OR (ONEOR (A) OR NOT H > 



TW0ORC2)); TEMPtlftJ* REAL C A, C47l 1 3 ); 



A* (TRUE OR FALSE ) AND ( R + J > H 3 OR ( H > J ) ; 



T.F.MPXl'U*.. REAL CA.,C,47UJ)i 



A* H,£«5I3J- > H»[45»2) OR j»[45*3J * J,C45il]j 



TEMPC16J* REAL (A, (47: \l)i 

A* H. (45»33> TWOOR(l) OR NOT J,[4S«l3>Oj 



TEMPC173* REAL0, C471U); 

A*H.C45'U^0 AND J.C4bS3J>0 OR hi 



10300080 T 0000 



10300090 T 0003 
10300100 T 0003 



10300H0 T 0003 



10300120 T 0003 
10300130 T 0007 



10300140 T 0011 



10300150 T 0014 
10300160 T 0017 



10300170 T 0021 



10300180 T 0024 
1 30Q1 9Q t QQ28 



1 3 02QQ TL 00 33 
10300210 T 0037 



1030022Q t 00^2 
10300230 T 0045 



10300240 T 004fl 
10300250 T 0053 
10300260 T 0058 



10300270 T 0063 



10300280 T 0066 
10300290 T 0068 



10300300 T 0071 



10300310 T 0076 



10300320 r 0079 



10 3003 30 T 0082 



10300340 T 0086 

10300350 T 0088 



10300360 T 0092 

1O300370 t — OW4- 



I* 



39 

40 

4J 

42 

43 

44 

45 

46 

47 

48 

49 

50 < 

51 

52 

53» 

54 

55 

56 I 

57, 



TEMPC18]* REALCA,[47H3); 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 



14 

,5 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31^ 

32 



33 
34 
35 
36 

37 " 

38 

39 

40 

41 

42 



43 



45 
46 
47 
48 
49 
50 
51 
52 



53 
S4 



55 
56 



10300380 r 009a 



FILL ANSt*3 WITH OcTl* 0CTl> Q C Tl* 0CTQ#QCU> 0CT0 # " C T 1 ~0 CTl~> 



10300390 T 0-iOO 
START OF SEGMENT ********** 



_6JL 



OCTO* OCTO* OCTO* OCT 1* OCU* GCTl* QCTl* UCTl* 



10300400 T 0102 



OCTl* OCTl* 



10300410 T 0102 
64 T 8 lfl I QNft. NExT SFr. 63 



CVN«- 18 



10300420 T. Oi02 



PNO * 30 
VERIFY 



10300430 T 0103 
10300440 T 0103 



end; 



10300450 T 0103 



PROCEDURE P3i; COMMENT LOGICAL OPERATOR IMP 



63 T S 107 LONG, NEXT S£tt 10 
3.5.5,2; 10310Q10 T Ol74 



BEGIN 



10310020 T Oi 74 



INTEGER I0*I1#IN1M2*IN2*IMAX#IMIN; 



10310030 T 0j74 
START OF SEGMFNT ********** 



-fii. 



REAL R,«R>RRR; 



1O310O4Q T QOQO 



ALPHA AA#AB; 



10310050 T 0000 



BOOLEAN B0#Bi; 

REAL PROCEDURE X(K); 



10310060 T 0000 
10310070 T 0000 



REAL K; 



10310080 T 0000 



BtGlN 



10310090 r o~ooir 



X<-K + (23/10); 



loaioioo r oooo 



end; 



1O31OH0 T 0001 



INTEGER PROCEDURE Y(L); 
INTEGER L; 



10310120 T 0004 
10310130 T 0004 



BEGIN 



10110140 T 0004 



Y«- l+5; 



10310150 T 0004 



end; 

BOOLEAN PROCEDURE ICHSi 



UJ10160 T 0006 
10110^70 T OOP fl 



BOOLEAN MJ 



10310180 T 0008 



3 

4 

si 



9 

10 

"I 

12 

13 

14 ( 

15 

16 

17 I 

18 

19 

20 { 

21 

22 

23 ( 

24 

25 

26 ( 

27 

28 

29 ( 

30 

31 

32 i 

33 

34 

35 i 

36 

37 

39 



40 

41 < 

42 

43 

44 4 

45 

46 

47 { 

48 

49 

50 { 

51 

52 

53 ( 

54 

55 

56 " 

53 



■*""!• 



BEGIN 



i 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



2 

c 

Qi 

£ 
a 
tj 
o 
Q 

♦2 
re 
Q 



13 
I M 

15 

16 
I 17 

18 

19 
I 20 

21 

22 
I 23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 "~ 

38 

39 

40 



41 
42 
43 



45 
46 
I 47 
48 
49 
50 
51 
52 
53 

55 



z*m and true; 



END; 



io«-o; iui; ini*-i; i2*-2; in2*-2; 



IMAX*1023; IMIN*-1023; 



aa«-"a"; ab*"8"> 



B0*FALSt; 81+TRUEJ 
TEMPC13»REAL(TRUE IMP FALSE); 



TEMPC i J* TEMPC 1J.C47S13; 



TEMPC2]*REAL (FALSE IMP TRUE); 
TEMPC 23» TEMPC 23. £47*13; 



TEMPC3J* REAL (FAL3E IMP FALSE); 



TEMPI 33* TEMP[ 33.C47U3; 
TEMPC4]* REAL (TRUE IMP TRUE); 



TEMPC043* TtMPt 43.C47J1); 



TEMPf53«- REAL (TRUE IMP Bl); 
TEMPC053*- TEMPC05].C07»1]J 



TEMP[6]«-REAL (FALSE IMP ZjjRUJJJJ 



TEMP[063«- TEMP[ 6). [47*13; 



TEMP[7)«-REAL (FALSE IMP INl < lN2)i 
TEMPC073*- TEMPC 7). [47:13; 



TEMPE83* R£AL(TRU£ IMP (IF I2<3 THEN TRUE ELSE FALSE)); 



TEMPC 83* TEMPC 83.C47U3; ~~^ " 

TEMPC93* REAL (FALSE IMP BOOLEAN C I Q, C 4 7 1 1 3 ) ) ; 



TEMPC 93* TEMPC 93.C47U3; 



TEMPCi03*REAL (Bl IMP ttQOLEANC 1 1 ) ) ; 
TEMPC103* TEMPC103.C47J13; 



TEMPUi)* REAL CBO IMP *(FALS£)); 

TEMPC113* TEMPC113,C47; 13; 



10310190 T 0008 



10310200 T 0008 
10310210 T 0010 



10310220 T 0012 



10310230 T 0017 
10310240 T 0019 



10310250 T 0Q22 



10310260 T 0024 
10310270 t OQ25 



1031027b T 0028 



10310280 T 0031 
10310285 T 0034 



10310290 T 0037 



10310295 T 0040 
10310300 T 0043 



10310305 T 0045 



10310310 T 0049 
10310315 T 0051 



10310320 i 005/1 



10310325 T 0057 



10310330 T 0060 
10310335 T 00*3 



10310340 T 0066 
10310345 T D~07T 
10310350 T 0074 



10310355 T 0077 



10310360 T 0080 
10310365 T 0083 



103X0370 T 0086 



1031037'i T 0089 



T< 



47 

48 

49 

50 j 

51 

52 

53 I 

54 

55 

56 I 

57 



m • 



>r 



TEMPC123* HEAL (BO IMP R > AB); 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 






16 
17 
IB 
19 
20 
21 
22 
23 
24 

».' 

26 
27 
28 
29 



30 
31 
32 
33 



34 
35 



36 

37" 



38 
39 
40 
41 
42 
«3 
44 
45 
46 
47 
48 
49 
SO 
51 
52 
53 
54 
55 
56 < 



TEMPC123* TEMPtl2J,[47*l]J 
TEMPC133* REAL (Bl IMP BO EQV Bl); 



TEMPCU]*- R'EALCBl IMP BOOLEAN ( IMAX, [47! 1 ] > ); 



TEMPtHJ* TEMPtl43,[47U3J 



TEHPC15J* REAL (l(TRUE) IMP BOOLEAN (YC4)))J 
TEMP[153«- TEMP C 153 ,[47» 13; 



TEMPC163*R£AL (Z(FALSE) IMP CRR < X<1))); 
TEMPC163- TEMPC16].t47ll]j 



TEMPU7KREAL (Z(FALSE) IMP BO OR BOOLEAN (10)); 



TEMPC173* TEMP[173.[47»U; 

T£MP[183» REAL (Z(TRUE) IMP BOOLEAN ( IMAX. 1 47 1 1 ] ) ) j 

TEMPC19]* TEMPC18J .[47: 1]; 



TEmP[193* REAL <C BO ImP BOOLEAN(IO)} IMP (NOT Bl IMP BO)); 

TEMPC2Q3* REAL C 12 < II IMP NOT Bl); 

T£MP[203«- TEMP[203. [47113; 



TEMP[213* REAL ((RRRSRRJ IMP BOOLEAN C IMAX , [ 3* » 1 ] ) )t 
TEMP[2l3* TEMPC213. [47113; 



TEMP[223«- REAL (BO AND BOOLEAN (10) IMP NOT Bl OR BO)/ 



TEMP[223 *TEMP[223.[47J13; 

TEMP[233» REAL <B1 IMP BOOLEAN ( IMIN. [41 »1 3 ) ImP NQT Bp); 

TEMP[233* TEMP[23J, [47113; 



TEMP[243* REAL ( BOOLEAN ( IO.U5U3J IMP BO. 1 40 1 1 3 )} 
TEMP[243» TEMPC243.[47U3; 



COMMENT ANSWERS Ai\U OUTPUT; 



FILL ANS[*3 WITH QCTO, 0CT1# OCT!* 



10310380 T 0092 



10310385 T 0095 
10S10390 T 0098 



10310400 T 0l02 



10310405 t Ot05 
10301Q41 T 0108 



10310415 T 0115 



10310420 T 0118 
10310425 t 0123 



10310430 T 0i25 



10310435 T 0i28 
In3l044n T m3i 



10310*445 T 0i35 



10310450 T 0138 
1Q31046Q T Q143 



10310^65 T 0i46 



10310470 T Oi49 
10310475 7 0152 



10310480 T 0155 



10310485 T 0i59 
1Q310490 T 0162 



10310495 T 0i66 



10310500 T 0169 
10310505 T 0173 



10310510 T 0176 



OCT 1* OCTi* OCTl, 
OCTi» OCTl* UCTi, 



OCTl/ OCT** OCTl* 



10310520 T 0i76 
START OF SEGMENT ********** 66 

10310530 T Oi7d 

10310540 T 0178 
10310550 T 0178 



OCTO* OCTl» OCTU 



< 



i 
2 
3 
4 
5 

6 

7 

8 

9 
10 
11 
12 
13 
14 ' 
15 
16 



1 

i 
• 



17 1 

18 

19 

20 ( 

21 

22 

23 ( 

24 

25 

26 ( 

27 

28 

29 ( 

30 

31 



32 ( 

33 

34 

35 ( 

36 

37 

38 ( 

39 

40 

4,1 

42 

43 

44 i 

45 

46 

47 < 

48 

49 

50 1 

51 

52 

53 I 

54 

55 

56 I 

57 



10310560 T 0178 



>r 



1 

2 
3 

4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 



19 
20 



21 
22 
23 
24 
25 
26 
27 
28 
29 



30 
31 
32 
33 
34 
35 
36 



37 
38 



39 

40 



41 
42 
43 
44 
45 



46 
»7 
«8 
49 
50 
51 



52 
53 



54 

55 



OCTl* QCTl# QCTl, 



10310570 T 0178 



OCTl* OCTl# OCT 1* 
0CT1* QCT1* 0CT1 ; 



10310580 T 0178 
10310590 T Ol76 



66 



24 UOiNG, NExT SEG 65 



CVN*25; 
PN0»3t; 



10310600 T 0l78 
10310610 T 0l79 



VERIFY 



10310620 T 0\79 



END* 



10 310630 T Oi79 
65 tS 186 LONG, NEXT Ses 10 



PROCEDURE P32)C0MMENT 3,5,5.2 EQV* 



10320010 T 0174 



BEGIN ' 
BOOLEAN A»B*C»DJ 



10320020 T Ol7<l 
10320030 T 0174 



STAflT OF SEGMENT ********** 67 



A*TRUEJ B*FALSEf C«-TRUEJ 0«-FALSE; 
TEMPtll til A EflV C THEN i eLSf 01 



10320040 T 0000 
1Q32 0Q5Q T 0003 



TEMPC2] «- IF A EQV D THEN 1 ELSE 0; 



10320060 T 0006 



TEMP[3] * IF B EQV C THEN \ ELSE Q$ 
TEMPC4] * IF B EQV D THEN 1 ELSE 0; 



10320070 T 0010 
10320080 T 0014 



TErtP[5] * IF B EQV(A EGVCB EQV C)) THEN 1 EL S E 0; 
TEMP[61«- IF (B Ur c) EQV A THEN 1 ELSE 0; 



FILL AN*>[*J WITH 0CT1* UCTO, QCTO, OCTl# 0CT1* OCTU 



10320090 T 0018 
10320lOO T 0~0T2~ 
10320110 T °027 



START OF SEGMENT ********** 



68 



CVN *6; PNU * 32* VERIFY 



68 T 8 6 LONG, NEXT SEG 
10320^20 T 0028 



67 



EKD* 



10320130 T 0030 



PROCEDURE P33; COMMENT SIMPLE OESlGNATlON EXPRESSION 3,6.3,1 



67 T S 33 LONG, NEXT SEG 
10330010 t 0174 



10 



NOV 13, 1962. KM,; 



10330020 T 0174 



BEGIN 



LABEL 



Al*A2#A3*A4#A5#A6#A7>Ait'A22#A33,A34#A44*A45/. A 46* 



10330030 T 0l74 
10330040 T 0|74 



START OF SEGMENT ********** 



69 



h 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 



A«8*A47»Cl#C2*C3#i:4*c5#C6»C7#C8»C9#ClQ>Cll»C12»Cl3*Cl<4# 



10S30045 T 0000 



C15#C16,C17#C18#C19,C20,C21*C22>C23#C24#C25*C26> 
C27»C28» Dl*D2>D3»D4,05fD6j 



10330046 T 

10330047 T 



0000 
0000 



LABEL 



Bl*B2'B3»B4*Bb*B6*87#B8; 



10330048 T 0000 



REAL A*B; 
INTEGER H>c; 



10330050 T 0000 
1Q33Q06Q T OOOO 



BOOLEAN 



c>e; 



10330070 T 0000 



SWITCH SIM0E51S*A1*A2#A3,A4#A5,A6,A7J 
SWITCH EXTRA » B 1>B2»B3'B4,B5»B6»B7»B8; 



10330080 t 0000 
10330085 T 0006 



20 
21 
22 
23 
24 
25 



26 
27 
28 
29 



30 
31 " 
32 
33 
34 
35 
36 
37 " 



38 
39 



40 
41 
42 
43 



45 
46 
47 
18 
49 
50 
51 



52 
53 

54 
55 



56 



SWITCH DES1GSTAT FORWARD; 

INTEGER PROCEDURE A55CA35A); INTEGER A55aI FQRfcARO; 

SWITCH DESiGSTAT*- AU*C*22)» EXTRA CA*B3» IF D TH EN A33 



ELSE A34, IF D THEN EXTRA [2*(3 MQD * ) 3 



ELSE DESIGSTAT 17], IF THEN A44 ELSE IF 
E THEN AA5 ELSE A46> C26> 



EXTRA [CA55(3)+H,[47»l3 + EnTiER (A))]; 



INTEGER PROCEDURE A55(A55A)J 
INTEGER A55A ; 



BEGIN 



A55* A55A + 1* 



EN 01 



A«- 3/2; b* 7/4; d* true ; e«-true; H*77 ;c«- 1; 



GO TO Alt TEMPCCJ* Q) C* C+i; GO TO DW 
Alt TEMPCC3 » 2* C» C + W 



'Dl* GO TO CA2)J TEMPCC3* 0; c* C + U GO TO 02; 



A3* TEMPCC3 * 3*C* C*li 

P2» GO TO SIWQESlGC4»7-83; TEMP[C3» Oi C* C*l> GO TO 03* 



A3 1 TEMPCC3 ♦ 4*C«- C + i; 



031 GO TO SlMDESIGC B + B ♦ 6 - A ]; TEMPCC3*" Oi C* C*Xi GO TO 04i 
A«l TEMPCC3» 5; C» C + U „, 



10330086 T 0014 



10330087 T 0~QT4~ 
10330090 T 0014 



10330100 T 0025 



10330H0 T 0031 
10330120 T 0037 



10330i30 T OQ<H» 



10330140 t 0056 
10330145 T 0058 



10330150 T 0058 



10330160 t 0058 
10330170 T 0Q59 



10330180 T 0061 



10330190 T 006 7 
10330200 T 0071 



10330210 T 0075 



10330220 T 0080 
10330230 T 0084 



10330240 T 0090 



10330250 T 0094 
3t 9l?Og60 T ,-O.lPQ 



Dfl« GO TO SIMDESJG C H.C45I3]]; TEMPCC3* 0; C* C+li GO Tq 05; 



10330270 T 0l0'4 



56 < 



m t 



2 

3 
4 
S 
6 

7 

a 

9 

10 

ii 

12 
13 
14 
15 
16 
17 
IB 
19 
20 
21 
22 
23 
24 



26 
26 



27 
28 



29 
30 



31 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 



43 



45 
46 
47 
48 



50 
51 



52 

53 



54 

55 



A5« temp[cj ♦• ti o c + i; 



D5S GO TO SIMDE5IG E A55(5)j; TEMPIC3* o; C«- C + i; G0"TQ~D6; 
A6» TEMPCC3* 7/ O £±li 



D6* GO TO 3IMDE3IG t(H,[«5!3] x A)+ B + A55<-3)]J TEmP[C3*0; 



c*c+i; 

A7* GO TO C IF THEN cl EUSg c23; TEMP[C3»0; C»C*WGP TO c3; 



ci* TEMPccue; oc+i; go to 03; 



C2» TEMPCC3«-88/C*C + i; 

C3» GO TO ( IF D THEN (C*) £LS£ (c5))j TEMPCcUQ; c + C + UGO TQ c6 ; 



C4* TEMP[C3*9; C*C+W GO TO C6; 



C5» TEMPCC3*9«JC*C*1I 

C6* GO TO (IF D THEN (IF E THEN C? ELSE C8 ) ELSE C9); TEMP[C3«"Q; 



C* C+i; GO TO cio; 



C7* TEHPCC]*lOJ C*C*i; GO TU CjO ; 
C8» TEMPCC3* 100; c»C+li GO TO CIO; 



C5 * TLMP[C]*llli OC + i; 



CT0» E^FALSU GO TO (IF THEN (IF E THEN Ci2 ELSE Cll T ELSE 
(IF E THEN C13 ELS E (IF E THEN Cl« EtS E Cl5 33); 



tempcc]«-o; oc + i; go tcj ci6; 



10330280 T 0109 



10330290 T 0113 
1Q3 3P30Q T 11 8 



10330310 T 0122 



Cll* TEMP[C3«-U> C*C+1* GO TO C16I 
C12* TEMP[C3*112J OC + U GO TQ C 16J 



C13* TEMPCC]*113;c*C+i; GO TO Cl6j 



en* tempcC3*ih; c*c+i; go to ci6; 

C15» TEMPCC3M15; OC + 1J 



C16I GO TO (IF D THEN DESIGSTATCB + B -A -A3 ELSE. C17 ); tEmPC C 3*0; 



— c* c+i; go to ci8 ; ' 
Ain TEMPtc3*xa;c*c+u go to cia; 



Cl7} TEMP[C3*l2i; oc + i; 



C18I 60 TO (IF THEN (IF THEN OESIGSTAT CH, C 45 12 3 3ELSE 
C19) ELSE C203I TEMPCC3»0; C»C + U QO TO C2jj 



A22* TEMPCC3*13; C«-C + l> GO TO C21 J 



10330330 T 0131 
10330300 T 0132 



10330350 T 0^1 



10330J60 T 01 44 
10330370 T 0l«6 



10330380 T 0i56 



10330390 T 0l59 
10330^00 T 0163 



10330410 T 0i7l 



10330420 T 0i73 
10330430 T 0l77 



10330440 j 181 



10330450 T 0i85 
10330460 T 0190 



103304^0 j 0i97 



10330430 T O2O1 
10330490 T 0205 



10330500 j 0209 



10330510 T 0~2~IT 
10330520 T 0217 



10330530 T 0221 



10330540 T 0~228~ 
10330550 T 0230 



10330560 T 0234 
10330570 T 0238 
10330580 T 0201 



10330590 T 02^9 



57/ 



C19J TEMP[C]*l3l> C«-C + i; GO TO C 21i 



^r 



13 

14 



15 
16 
17 
18 
19 
20 



21 
22 



23 
24 
25 
26 
27 
28 
29 



30 
31 ' 



32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 



45 
16 
47 
18 
49 



50 

51 



52 
53 
54 

55 
56 



C20i TEMPCC] «-132; OC + U 

C2U 60 TO (IF D THEN (If E THEN C22 ELSE DeSIGSTAT [A55(2)3> ELSp 



(IF E THEN C23 ELSE (IF E THEN C24 ELSE C25)))i 



TEMPCC3*0i C«-C + U GO TO C26J 
S3' TEMP[C3»lftJ C±C±U GO TU C26; 



C22* tempcc3«-i4i; oc + i; go To c26; 



C23J TEMPCG3M42J C*C+l; GO TO C26J 
C24< TEMPCC3* H3I c»CM* GO TO C26; 



C25* TEMPCC] «• 144; C<-C + i; 



C26» GO TO 0ESlGSTATCH.[42»63x( A *B) - A55(37 )); 
T£MPCC3*0* C»C*i; GO TO C27* 



A33» TEMPCC]«-1S; OC + 1/ GO TU C27 ', 



A34J TEMPCC]*l5i; C*C+1; 

C27t GO TO EXTRA C53 ; TEMP[C3»0? C*C+1' GO TO C28J 



85' TEMP[C3*l6> C*C + i; GO TO C28; 



Aft8l TEMPCC3*161; C*C*U 

C28» GO TQ DESIG3TATC83j TEMP[C3*0J C* C + U GO TO A47; 



B6» TEMP[C]* 17/ GO TO A47/ 



A47I Bl* |2» Biit B8* 87* A44«A45« A46* 

FILL ANS £»3 WITH UCT2' 0CT3» 0CT4* QCT5* QCT6* QCT7* 



10330^00 T 0252 



10330610 J 0256 
10330620 T Qg60 



QCT1Q* 0CT11»QCT12* 0CTl3> 0CT14* 
0CT15* 0CT16, QCT17? QCT20# QCr2lJ 



CVN*16; 
PN0*33; 



VERIFY 



end* 



PRCCEDURE P34; COMMENT GENERAL DESIGNATION EXPRESSION 3.6.3,2 



10330630 T 0265 



1033064Q T Q272 
10330650 T 0276 



10330660 T 02?y 



10330670 f 0283 
10330680 T 0?67 



10330690 T 0291 



10330700 T 0295 
1033Q710 T 0299 



10330720 T 0303 



10330730 f 0306 
10330740 T 0310 



10330750 T 0315 



10330760 T 0319 
10330770 T 0323 



10330780 T 0323 



10330790 T 0331 
10330800 T 0332 



START OF SEGMENT ********** 



70 



10330810 T 0333 
10330820 T 0333 



70 



16 LONG, NEXT SEG 69 



10330830 T 0333 
10330840 T 0334 



10330850 T 0335 



10330860 T 0335 
69 tS 342 LONG, NEXT SEG 



10 






8 I 
9 

10 

11 I 

12 

13 

14 1 

15 

16 

17 < 

18 

19 

20 ( 

21 

22 

23 ( 

24 

25 

26 ( 

27 

28 

29 ( 

30 

31 

32 4 

33 

34 

35 { 

36 

37 

38 ( 

39 

40 

♦-< 

42 

43 

44 f 

45 

46 

47 i 

48 

43 

50 | 

51 

52 

i 
54 
55 

56 1 
57, 



10340010 T 0174 



h 



10 

11 

12 
13 
14 
IS 
16 
17 
18 



19 

20 



21 
22 



23 
24 



26 
27 
28 



29 

30 



32 

33 
34 
35 
36 



37 
38 



39 
40 
41 
42 
43 " 



45 
«6 



47 
48 



•9 

SO 



52 

t S3 

54 

55 
56 

5Z_ 



NOV 15 1962. KM,; 



10340020 T 0l74 



BEGIN 



LABEL 



XI* X2# X5* X4> X5» X6* X47V Yl> Y2* Y3> Y4» Y5> Y6* 



10340030 T 0174 
10340040 t Oiy» 



Y7, Y8# Y9, Y10# Vll# Y12* Y13# Y14# Yl5# Y16» Yl7, 
Y18* Yi9» Y20* 



START OF SEGMENT ********** 71 



INTEGER H*K; 



REAL A'BtCJ 
BOOLEAN 0»E; 



SWITCH GENERAL FORWARD ; 



switch gen forward i 
switch gendesig forward; 



REAL PROCEDURE FUN(AAA)* REAL AAA; FORWARD; 



SWITCH GENDESIG ♦ G£NtA+B}# IF D THEN GEnERAl18/2J ELSE 
GEN.C+13* GENDESIGC43* GEN [H . [46 * 23 3; 



SWITCH GEN* 



GENERALC3 MOD 23# GENERAL CFUn( 17/4 ) 3 , 



GENERAlCU+8 xC h/2) ♦( 3 DIV 2>)3; 
SWITCH GENERAL «■ XI* X2» X3* X4> X5* X6# 



REAL PROCEDURE FUN(AAA); 



REAL AAA* 
BEGIN 



FUN* AAA/2/ 



end; 



h»7; a» 3/4; b» 7/20; -c- 9/10; o» true* e* f*use; k» i; 



GO TO IF D THEN Yl EL^E Y2; TEMP[ K3 *REAlC D ); K*K+1; GO Tq Y3; 



~YT» TEMPCK3* i; K*K*i; GO TO Y31 
Y2» TEMPCK]» li; K»K»i; 



Y4» TEMPtK]* 2j; K* K + U GO TO Y5; 
Xl» T£WPCK3» 2 i K»K+1J 



Y5« GO TO IF D THEN GENDES IG[ A + l 3 ELSE Y6; TEMP[K_«.0i K*K*lJ 



10340040 T 0000 
10340050 T 0000 



10340060 T 0000 



10340070 T 0000 
10340080 T 0000 



10340081 T 0000 



10340082 T 0000 
10340085 T 0000 



10340086 T 0000 



10340090 T 0000 
10340100 T 0007 



1034OH0 T 0018 



10340120 T 0029 
10340130 T 0037 



10340140 T 0058 



10340150 T 0058 
10 340160 T 0058 



10340170 T 0058 



103A0180 T O06O 
10340 i90 f 0Q62 



10840210 T 0069 



10340220 T 0QT7~ 
10340230 T 0081 



Y3« GO TO IF E THEN Y4 ELSE GENDESI Q[ A 3 ; T EMP[ K j*0; k*K + 1 ; GO TQ Y5i 10340240 T 0085 



10340250 T 0093" 
10340260 T 0096 



10340270 T 0100 



56 ' 
57 



^r 
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17 
18 
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20 
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22 
23 
24 
26 
26 
27 



28 
29 



30 
31 



32 
33 



34 

35 



36 

37* 



38 
39 



40 
41 



42 
43 



44 
45 



•6 
47 
•8 
49 
50 
51 



52 
53 
54 

55 
56 



GO TO Y7* 



X4I T£MPCK]*3 / K*K*1J GO TO Y7* 
Y6« T£MP[K]» 31 J K+K+l* 



Y7» GC TO IF D THEIS (IF £ THE* Y8 ELSE ¥9) ELSE Y10; T£MP[K3«.0; K*K+i; 



GO TO ¥11* 
IM TEMP[K3»41* K» K+i* GO TO Yll* 



Yg: tempck]<-4; k* k + i; go to yh; 



YlOl TEMPCK3*«2* K«- K + l* 

YU» GO TO IF £ THEN Yj2 ELSE IF £ THEN Yj3 ELSE Y^f 



TEMP[K3«-0* K«-K + i; GO TO ¥15* 
Tl2l TEMP[K3*5li K«-K + i; GO TO Y15* 



Yl3< TgMPCK3»52* K*K+i; GO TO Yl5* 



Y 14 J TEMP [K 3 *5 * K* K + l* 



Y15I GO TO IF E THEN GENERALC53 ELSE IF E THEN GENERAL16] ELSE 
GENOESlQ[33* TEMP[K3»0J K-K + l* GO TO Yl6* 



X5« TEMP[K3«-61* K+K+l* GO TO Yi6* 



X6« TEMPCK]«-62* K>K+1* GO TO Yl6* 
X3» TEMPCK3»6 * K»K+1* 



Y16: D«-FAlSe* GO TO IF E THEN (IF E THEN Yl7 ELSE Ylfl) ELSE IF E THEN 
fTp - ThEN YJ9 EUS£ Y20J ElSe GENDEslGthft 4 6 , 2 j , 1]; 



TEMP[K]*0 * GO TO X47* 



10340280 T 0108 



10340290 T 0108 
10340300 T 0112 



10340310 T 0116 



10340320 T 0126 
1Q3 403 3Q T 0j26 



1034Q340 t Ol30 



10340350 T 0j34 
10340360 T 0l38 



10340370 T 0j45 



10340380 «r 0i48 
10340390 T Ol52 



10340400 T 0l56 



10340410 T 0160 
10340420 T 0l64 



10340430 T 0j70 



10340440 f °1?3 
10340450 T 0177 



10340360 T 0181 
10340470 T 0187 
10340480 T 0194 



Y 17 1 TEMPCK3*-71J GO TO X47* 



10340490 T 0l97 



TTFl TEMPCK3*72i GO TO X47* 
Yl9* T£MPCK3»73* GO TO X47* 



10840500 T 0199 
10340510 T 0202 



Y20J TEMP[K3«- 74; GO TO X47* 



10340520 y 0205 



X2» TEHPtK3*7* 
X47« 



10340530 T Og08 
103405^0 T 0210 



FILL ANS [*J WITH QCT1* 0CT2# 0CT3* UCT4, 0CT5> QCT6, 0CT7* 



10340550 T 0211 



START OF SIGMENT ********** 72 
2f_jJL_ 7 LONG, NEXT SEG 71 



cvn* n 



1034057C T 0212 



56 ' 
57 



N 

2 
3 
4 
5 
6 
7 



PNO* 34; 



10340580 T 0213 



VERIFY 



END* 



10340590 T 0214 
10340600 T 0214 



71 T S 222 LONG* NEXT S£G 



10 



PROCEDURE P35; COMMENT SUBSCRIPT EXPRESSION OF A SWITCH DESIGNATOR 
3.0.4. NOV. IS 196?. KM> 



1035001C T 0174 
1035Q02Q T Ql 74 



10 
11 
12 

13 
14 
IS 
16 
17 
IS 



BEGIN 



10350025 T 0j74 



LABEL XI, X2, X3# X4* X5# X6, PI, P2# P3, P4, P5, ft, P7, 10350030 T 0*74 
START OF SEGMENT ********** 73 



P8, P9* P10> Pll# P44> 



10350035 T 0000 



19 

20 



21 



REAL A*8#C* BOOLEAN K,L* 
INTEGER F>G*H#Q* 



10350040 T 0000 
10350050 T 0000 



22 
23 
24 
25 
26 
27 
28 
29 
90 



SWITCH SUBi* Xl*X2#X3»X4#Xi# X6 ; 



INTEGER PROCEDURE SUBSV AL( SfclCHVAL )> 
INTEGER SWICHVAL* 



10350060 T 0000 
10350070 "t 0006 
10350080 T 0006 



BEGIN 



SUBSVAL*-SHICHVAL ♦ 1* 



10350090 T 0006 



31 
92 



END f 



I0350i00 y 0006 
10350110 T 0008 



34 
35 



36 

37 " 
38 



A«.2> 



B«-<|/3; C«- 2/1' f+lTi G«- 55/ H* 21' K«. TRUE; Q«.i* 



1035012C T 0010 



39 



L* FALSE; 
GQ TO IF K OR L THEN SUBSt 2*C -CA+B)] ELSE PI* TEMP[QJ«-0; 



10350130 T 0018 
10350J40 T 0018 



40 

41 



42 



q«-q+i; GO TO p'z; 



10350j50 T 0027 



Xl S TEMPtem* «*Q + l* GO TU P2* 
PI * T£MPCQJ*li;tt«-Q + U GO TO P3; 



10350160 T 0029 
10350170 T 0Q33 



46 
47 
48 



49 

50 



51 
52 
53 
54 



55 
56 



*1 



P2» GO TO IE L THEN P3 ELSE SUBSt (SUBSVAL{3) MOD A) + A]* 



0*Q+1* GO TO P4i 
P3S TEMPCQ3*2i;0*«+i; GO TO P4* 



X2« TEMPtQ]*2' Q«-Q + l/ 
P4»6C TO IF K I'HEN iiUBSC w AB« MOO »A« ♦ H, [4312)1 ELSE P5* 



TEMPC03*0 * Q«-G*l* GO TO P * 



10350180 T 0037 



10350i90 T — WWW 
10350200 T 00*6 



10350210 T 0050 
10350220 T — O0"STT 
1Q350230 T 0060 



P55 TEMP[U]«-0 / Q«-G + i; GO TU P6* 



10350240 T 0066 



• • 



X3« TEMP[Q]*3; Q*Q + U GO TO P6J 



>r 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 



17 
18 
19 
20 
21 
22 
23 
24 
25 



Q 
Si 

a, ' 
Q 



26 
27 
28 
29 

30 

31 



32 
33 
34 

35 

36 

37 " 

38 

39 

40 

41 

42 



45 
46 
47 
48 



49 
50 
51 
52 
53 
54 
56 
56 



10350245 T 0069 



P6« GO TO IF K AND NOT I THEN SUBS[«A"-SUBSVAL( J2 ) 3 El.SE P7 j 
TEMPI Q3»0 J G*Q+1J GO TO P8J 



10350260 T 0073 
10350270 T 0081 



P7! TEMP C<J J *-al> Q«-Q + x; GO TU Pq', 



10350280 T 0084 



XTJ TEMPCQ3 * Ai Q+Q+i; 



P8i GO TO IF I THEN P9 fctSE SUBSCH* [42 I 63 +((-A)x jp) + 43J 



103502V0 T 0088 
10350300 T 0092 



TEMP[Q] «• i G«-Q + i; GC TO Pio; 



10350310 T 0099 



P9I TEMPCQ3* 5U Q + W+U GQ To FIG; 
X5I TEMPCQ3* 51 Q»Q+i; 



10350320 T Oi03 
10350330 T 0106 



PlOSGC TO IF L THEN Pli ELSE SUBS [SuBSV AL ( A , [45 « 33 ) +3 3 ) 



10350340 T OjlO 



TEMP[QJ*0 } GO TQ P44J 
Pill TEMP[Q3» 61/' GO TO P44J 



10350350 T 0i20 
10350.160 T 012? 



X6» TEMP[Q3* 6 / 



10350370 y 0125 



P44* 



FILL ANS [*3 WITH OCTl* QCt2» 0CT3/ 0CT4, QCT5, QCt6 ; 



10350380 T 0127 
1Q35Q39Q T 0128 



START OF SEGMENT ********** 



74 



CVW*'6 I 



74 T S 6 LONG* NEX"» SEG 73 
10350400 T 0129 



PNG+35; 



10350410 T Oj30 



VERIFY 



end; 



10350420 T Oj3l 
10350a30 T 0131 



73 t s 1^9 LUNG* NEXT S E G 



10 



PftOCEOURE P36, COMMENT COMPOUND STATEMENT) 
BEGIN LABEL L1»L2*L3»L4»L5»L6J __ 



10360010 T 0174 
10360020 T 0174 



START OF SEGMENT ********** 75 



BEGIN COMMENT DUMMY STATEMENT TEMPC1)*6 END* END; 
BEGIN END* 



10360030 T 0000 
10360040 T 0000 



BEGIN 

BEGIN BEGIN BE^IN TEMPC2J *■ 2 END END END* 



103e00<*5 T 0000 



TEMPC33 »3JGQ TO UJ 



10360050 T 5000" 
10360Q70 t 0001 



L2«TEMP[5J «■ rEMP[43;(,Q TO L3* 



< 



1 

2 

3 

4 

5 

6 

7 

8 I 

9 
10 
11 I 
12 
13 
14 I 
15 
16 
17 I 
18 
19 
20 j 
21 
22 
23 ( 
24 
25 
26 ( 
27 
28 
29 ( 
30 
31 

32 < 

33 

34 

35 ^ 

36 
37 
38 ( 

39 



4 
• 



40 
41 
42 
43 
44 
45 



46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
51 






10360080 T O0C4 



>r 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 



17 
18 



19 
20 
21 
22 
23 
24 



25 
26 



27 
28 
29 
30 



31 
32 



33 
34 
35 
36 

37 " 

38 

39 

40 

41 

42 

43 



45 
46 

47 



«8 
49 
SO 
61 
52 
53 



54 

55 



56 
S7 



BEGIN 



10360090 T 0007 



111 TEMPUJ «. TEMPC33;GO TO L2i 

L3»£ND 



10360100 T 0007 
10360120 T 0010 



lno; 



10360130 T 0010 



BEGIN 



GO TO L4 '> L5i GO TQ L 6; 



10360150 T 0010 
10360160 T 0010 



BEGIN 



10360170 T 0011 



L4» TEMP[63 * 6?G0 TO L5 



end; 



10360180 T 0011 
10360190 T 0014 



l.6«end; 



10360200 T 0014 



FILL ANS£*3 KITH OCTO, 0CT2* 0CT3* QCT3, 0CT3, 0"CT6J 



10360210 T 0015 
START OF SEGMENT ********** 



76 



ffi T S 



6 LONG, NEXT SEG 7b 



CVN * 6' PNO «• 36i VERIFY 



end; 



10360220 T 0016 
10360230 T 0018 



75 fS 19 LONG, NEXT SEG 



10 



PROCEDURE P37; COMMENT 4.1 BLOCK/ 5.0*2 DECLARATION, cTc^TTTTi^T* - 62T 
BEGIN iNTEGEg \U 12, 13; REAL Rl, R2, R3; BOOLEAN Bl, B2, B3; 



10370010 T 0i?4 
10370020 T Oi74 



START 9F SEGMENT ********** 
ARRAY Al[l»J3* A2C1I3#.1»3J# A3 [ 1 1 3» 1 i 3# 1 1 33 ; LaBEL i'lTTfi'TT; 10370030 T — OMO 



7 7 



L1»B1 » B2 » 83 «• TRUE i Ri ♦ U R2 ♦ 2; R3 ♦ 3; 



10370040 T 0006 



FOR 11 «• 1 STEP 1 UNTIL 3 DO 



L2«BE8IN A1U13 *• I H FUR 12 * 1 ST£P 1 UNTIL 3 QO 
BEGIN A2CI1,I23 * 11+12; FOR 13*1 STEP 1 UNTIL 3 On 



10370050 T 0010 
10370060 T 0~OTT 
10370070 T 0014 



A3tIl,!2M33 «■ A 2 C 1 1 # I 2 3 + 13; 



10370080 T 001S) 



C3»EN0 

eno; 



10370090 T 0028 
10370100 T 0028 



II * l; 12 *2 ; 13 «• 3; COMMENT INITIALIZATION DONe; 



10370110 T 0032 



BEGIN COMMENT RE-OECLARATION OF LABEL AS BOOLEAN VARUBl; 
BOOLEAN Li; tl » BU IF Ll THEN TEMPg] » 1 



10370120 T 0034 
10370130 T 0034 



START OF SEGMENT ********** 



78 



"•n* 



57; 



• • 



>T 



i 

2 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



13 
14 

lis 

- 
16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

" 
28 
29 

30 

31 ~ 
32 
33 
34 
35 
36 
37 ~ 



38 

39 



40 
41 
42 
43 ~ 



45 
46 
47 
«8 



49 
50 



52 



54 



56 



end; 



103?0],40 T 0002 



79 T S 4 LONG, NEXT SEG 
BEGIN COMMENT USE OF GLOBAL VARIABLES AND REDECLARATION Up AN 10370150 T 0036 



77 



ARRAY AS A LAdEL/ LABEL A3>H; 



10370160 T 0036 



IF Rl S R2 THEN GO TO Ll ELSE GO TO A3 ; 



START OF SEGMENT ********** 79 
10370t70 T 0000 



LUTEMPUJ *■ R3/ 



10370180 T 0001 



A31ENDJ 



103701*0 T 0003 
79 T S 5 I ONS, NEXT SFS 77 



BEGIN COMMENT SWITCH DECLARATIONS; LABEL L\$ L2* L3; SWITCH S*l 10370200 T 0037 



»'L1> L2, L3J GO TO SwU2J* GO TO LU L2« TEMPt33 * 64; 



"START OF SEGMENT ********** 
1Q37021Q T 0000 



80 



li» L3' end; 



10370220 T 0009 



BEGIN COMMENT NESTED REDECLARATIONS; INTEGER 12; 12 «■ 13; 



80 tS 11 LONG, NEXT SEG " 77 
1Q37023Q T 0_0jj 



START 8F SEGMENT ********** 81 



BEGIN INTEGER I1J It ♦ 12 + 11 



10370240 T 0000 
START OF SEGMENT ********** 



82 



BEGIN INTEGER 12; 12 «• II +i; 



10370250 t °00l 



START QF SEGMgNT ********** 83 
BEGIN INTEGER III U » 12 + lf TEMPUJ » ll ENp; 10370260 T OQOl 



START OF SEGMENT ********** 



64 



TEMPC53 » 12 



84 T S 4 LONG, NExT 5EG 
10370270 T 0002 



83 



END; TEMPC6] * II 



10370280 T 0003 



END; TEMPC7] «- 12 



83 tS 5 LONG, NEXT SEG 
10370290 T 0003 



82 



ENO; TEMPC83 * 12 J TEMft£9X'<* II J 



BEGIN COMMENT SPQT-CHECK OF ARRAY VALUES; ARRAY BUUU3]* 



82 T s 5 LONG, NEXT S£G 81 

10 370 3OO T 0003 
9 1 I? 5 LONG, NEXT SE6 77 



10370310 t 0042 



>r 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 



25 
26 



27 
2B 



£ 

o 
Q 

S 

3 j 



29 
30 



31 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 






45 
46 
47 
48 
49 
SO 
51 
52 
53 
54 
56 
56 
i7 



START QF SEGMENT ********** 



8S 



B2tIlli3#HU3J# B3CXilI3#HU3*UlI33* INTEGER UTTR^TTaT 
FOR Rj » 1 STEP 1 UNTIL 3 DO _ 



10370320 T 0005 
10370330 T 0021 



BEGIN BHR1J «• A1CR13; FOR R2* 1 STEP 1 UNTIL 3 DO 



10370340 T 0Q23 



BEGIN B2CRI7R2J «. A2£Rl*R23; FOR R3 * 1 STfP I UnTiL" 
3 DO B3[R1*R2»R33«-A3CR1»R2*R33 



10370350 T 0027 
10370360 T 0032 



END 



10370370 T 0Q3V 



END; TEMPC103 *• BH33; TEMPtllJ ♦ B2C3>33; 
TEMPCl23» B3E3,3,3.l; 



10370380 T 00*2 
10370390 T 0053 



END; TEMPCj'3] *' R'li TEMHC143 «■ R2; TEMPClS] * H3; 



10370^00 T 0058 



IF Bl THEN TEMPC163 * V If 62 THEN TEMPC173 » 1* 



IF B3 THEN TEMPC18J ♦ 1* 



85 T S 62 LONG, NEXT SEG 77 

10370410 T 0048 

10370420 T 0053 



FILL ANS [ * 3 WITH C Tl* 0^3' C TlOO* QcT6> C T sHTcf Y> ' C T 3T 



10370430 T 0055 
START OF SEGMENT ********** 



_&6_ 



0CT2, QCTl/ 0CT3, 0CT6, 0CTll#0CTl# 0CT2, 



10370440 T 0057 



oct3, octi* ocu, ccti; 



10370450 T 0057 
86 T S 18 LONG* NEXT SEG 77 



CVN <• 18 ; PNQ » 37 ; 



10370460 t 0057 



VERIFY 



10370470 T 0059 



end; 



10370480 T 0059 
77 f5 69 LONG, NEXT SEG 



10 



PROCEDURE P38; COMMENT ASSIGNMENT STATEMENT JW 



30 OCT 63' 



10380010 T 0174 



BEGIN 



REAL A; 



10380020 T 0j74 
10380030 T Ol 74 



START BF SEGMENT ********** 



87 



INTEGER J,K#M; 
BOOLEAN S'T; 



10380040 T 0000 
10380050 T 0000 



ALPHA Z; 

array tenth 



10360060 T 0000 
10380070 T 0~oW 



li 



>r 



REAL PROCEDURE KORK; 



10380080 T 0001 



BEGIN 



TEMP[123» KQRK4. TEMP[103 



10380090 T 0001 
10380^00 T OOOt 



end; 



10380110 T O0G« 



10 

11 

12 

13 
14 
15 



TEMPtU ♦ 27/2* 
TEMPC2JM62* 



Z«- H WEI2IR M ; 



TEMP C 3 3 * U 
H + 7J 



10380120 T 0008 
18380130 T 0011 



10380140 T 0013 



10380150 T 0013 
103fl0i60 T 0015 



16 

Il8 



T» TR UEJ 



1 3 P 1 7 T 001ft 



19 

20 



21 
22 



23 
24 



25 
26 



27 
28 



29 

30 

31 ~ 
32 
33 



34 
35 
36 



37 
38 
39 



S ,«■ M < TEMP [23 AND It 



TEMPC43 * IF S THEN 1 ELSE 0; 
J «■ 67/5; 



TEMPCS1* 4i 



K«- TEMPtn; 

TEMPL6] * K; 



TEMPC7] * TEMPC83 «■ TEMP£9J * TEMPdJ; 



TEMPC103 ♦ XtU«-21/2; 
TEMPC113.C45I33 <■ *. [45*33; 



a* kork; 



10380180 T 0017 



10380190 T 0019 
1Q380200 T 0022 



10380210 T 0024 



10380220 T 0025 
1Q38023Q T 0p27 



10380240 T 0029 



10380250 T 0034 
10380260 T 0038 



10380270 T 0041 



40 
41 
42 



43 



45 
46 
47 
48 
49 
50 
51 
52 
53 
54 



55 

56 



FILL AN5[*J WITH OCT lO lOOOOOOOOOO i54# QCT242* QCT66253 l7 j3i5 \> 



10380280 T 0042 



START OF SEGMENT ********** 



OCU# 0CT15' 0CT16, OCT 1010000000000154* OcT lOiOOOOOOOOOO 154* 



10380290 T 0044 



OCT101000000000015<M OCT 10 i0000000000l24# QCT7* 
OCT1010OO00OOOQO124; 



10380300 T 0044 
10380305 T 0Q44 



-aa. 



88 



12 LONG, NEXT SEG 87 



CVN *■ 12; 
PNO «■ 38; 



10380310 T 0044 
10380320 T 0045 



VERIFY 



10380330 T 0046 



end; 



10380340 T 0046 



sy 



"•n* 



>r 



87 



53 LONG, NEXT SEG 



10 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 



21 
22 



23 
24 



25 
28 



27 

2B 



29 

30 



31 

32 

33 

34 

35 

36 

37 " 

38 



40 
41 



42 
43~ 



45 

46 
47 
48 



49 
50 



51 
52 
53 
54 



PROCEDURE P39* COMMENT GO TO STATEMENT WITHOUT PROCEDURES AND" SWITCHES* 
4.3* WIT' 11-9*62* THIS PRQcEQPRE DOES NOT US r 



10390010 T 0l?4 
10390020 T Ql74 



NORMAL TtSTING MECHANISMS OF TEMP* ANS* VERlF Y - 



10390030 T 0174 



THE PATH THROUGH THIS PROCEDURE IS AS FOLLOWS! 
-kl L 2 13 L4 US L6 17 L8 L9 L1Q 



10390050 T 0174 
10390070 T 0l74 



111 Hi 113 L14 L15 L16 LJ7 Ll8 LI? L 20 



10390080 t Ol^tt 



U21 L22 L23 L24 L25 L26 U27 L28 L2* L30 



L31 L32 L33 L34 L35 L36 L37 L38 13* L40 



10390090 T 0i74 
10390100 T 0l74 



L41 L42 L43 1.44 L45 L46 U47 t.48 L4* L50 



10390J10 x 0l?4 



L51 L52 L53 154 L55 L56 157 L58 L^ ~L6Q~ 

L61 L62 163 L64 L65 L66 167 L 68 Lfi9_ L..70. 

L71 L72 1,73 L74J 



I0390i20 T 0j74 
10390130 T Ol74 



10390140 T 0174 



BEGIN 
LABFL 



L]*L2*l3*L4*L5*L6*L7*L8*L9*L li*Ll?*Ln*Ha*L 1 S*l j<>* 



10390150 T 0174 
I0390 t 60 T 0]7a 



Ll/*Ui8*Li9,L20,L22,L23*L24*L25*L26*t27*U28*L 2 9*l.30*L3i,U32» 
l33*U35*l30*L37*L38*i.3^*i.41*t.42*l-«t4*t,45>t46»U47*L48*l49 > U50* 



10390 j 70 T 0000 
I0 390i80 T 0000 



L52»l5 3*L54* L 55*l56*l5 7*l58* L 59*l6 2'16 3*L64*l67*l70, L 7 1*L72> 



t7^*U7'**L7^*L76*t77*L78*L7^*L80*L81 *L62*L83*L84*L85fL86*L67* ' 
L88*l.89*U90*L9i; 



10390^0 T 0000 
T01W2W7 OTJW 



10390210 T 0000 



MONITOR FNOKC LI »L2,L3,LnL5*l6,l7,L8,L9,Ll 1*112*11 3 *114,L15, L 16, 



L17*L18*L19*L20*L22*L2J*L2'»*L25*La 6*127*12 8*L29*L3o*L3l*L32, 
L33*L35*t.36*L37*L38*L3^*L41*L42*L44*L45*L46»L47*L48*L49*U50* 



10390220 T 0000 

10^90230 T OOOT 
10390231 T 0000 



L52,L5 3,Lb4,L55*L56,L5 7*L58,L59,L62*L6 3,L64,L67,L70,L7l,L7 2, 



10390232 T 0000 



L73*L74*U75*L76*L77*L78*L79*L80*U81*L82*U83*U8 4'l.85*l86*L,8 7* 
L88*L89*L90*L91); 



10390233 T OOOT 

10390234 T OQOO 



10390235 T 0000 



INTEGER I* 
Lit GO TO L2* 



10390240 T 0000 
10390250 t 0000 



|_46» GQ TO L47* 



10390260 T 0004 



START OF SEGMENT ********** 89 



i\ 

2< 

3 
4 
5< 

6 

7 

8< 

9 

10 
1. i 
12 
13 

1«< 

15 
16 
17 I 

18 
19 

20 I 
21 
22 

23 I 
24 
25 



26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

4,' 

42 

43 

44 ' 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

5?. 



• 
• 
• 



m 



• • 



h 



1 

2 
3 
4 
5 
6 
I 
8 
9 
10 



12 

13 

14 

15 

16~ 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 



30 
31 " 
32 
33 



34 

35 

36 

37 " 

38 

39 

40 

41 

42 



43 



45 
46 
47 
48 
49 
50 
51 



52 
53 

54 
55 
56 
57 



LA8! GO TO L49; 



10390270 T 0008 



L53I GO TO l5Hi 
L2* IF TRUE THEN L3» GO TO L4 ; 



10390280 T 0012 
10390290 T 0016 



L^S IF TRuE THEN L5« BEGIN U 6: GO TO |_7 END; 



10390300 T 0025 



LSI IF TRUE THEN L91 BEGIN LABEL LlO; 



10390310 T 0038 
START QF SEGMFNT ********** 



_9JL 



MONITOR FNOK (LlO)/ 



10390312 T 0000 



L10I GO TO Lll END; 



10390320 T 0000 
90 tS 7 LONG, MEXT SFG 89 



U91J IF FAlSE THEN L14* FOR 1*0 DO L15| GO TO {,16} 



10390330 T 0047 ' 



L90: IF FAL8E THEN L89 j GO TO i?<i ELSE L49| GO TO L50;~ 
L12» IF TRUE THEN L13» GO TU Lj4 £LSe H H ■ GO TO Lj2i 



10390340 T 0062 
10390350 f 0077 



L88S if FALSE THEN L47SG0 TO L48 EL S E L37I GO TO 138; 



10390360 T 0091 



L87j IP FALSE THEN L86: GO TO l7U ELSE L58» GO TO L59i 
L85» IF FALSE THEN L63l GO TO L64 £LSe L62» qO TO L63* 



103903^0 T 0105 
10390380 T 0119 



L84: IF FALSE THEN L52: GO TO L 53 ELSE 'L8'3l BEGIN 4. 1 6 « GO TO l\7 



10390390 T 0i33 



end; 
l82i if false th£n ll9» go tq l 20 else l20» begin label l21j 



10390392 t 0l5l 
10390000 T 0151 



START OF SEGMENT ********** 



91 



MONITOR FNOK CL2l)J L2U GO TO L22 END; 



10390410 T 0000 
91 T 5 7 LONG, NEXT SEG 



89 



L23« IF FALSE THEN L22J GO TO L23 ELSE L24I FOR 1*0 D u 

L.25» GO TO L26J" 
L8U IF FALSE THEN L418 GO TO L42 ELSE L26t IF TRUE THEN L27t 



10390420 T 0i65 



10390430 T OTIT 
10390440 f .0,1 el 



GO to L28; 



10390^50 T 0201 



L28I FOR 1*0 00 L29»GQ TO L30/ 

L30I FOR UP 00 L31« BEGIN L32I GO TO L33 END; 



10390460 T 0205 
10390470 T 0215 



L38; FOR 1*0 DO L39» BEGIN LABEL L40; 



10390480 T 0230 



MONITOR FNOK (L40?; 



START OF SEGMENT ********** 

10390482 T 0000 



92 



L40: GO TO L41 END; 



10390490 T 0000 



h- 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 



11 
12 
13 
14 
15 



16 
17 
18 
19 



20 
21 
22 
23 
24 
26 



E 

3 
O 

o 
Q 



26 

27 

28 

29 

30 

31 ™ 

32 

33 



34 
35 



36 

37~ 



38 
39 



40 
I 41 

42 

♦3 
I 44 

45 

46 

47 

«8 

49 

50 

51 

52 

53 

54 

55 

56 

k. 



92 T S 



7 LONG, NEXT SEG 



89 



L55J FOR 1*0 00 L56» FOR 1*0 DO L57 '• GO TO L58; 
L70* FOR 1*0 DO L7JJ IF TRUE THEN L72* GO TO L73 ELSE L73» 



GO TO 17«'* 



10390500 T 0241 
10390510 T 0259 



10390520 T 0275 



L80I BEGIN 171 GO TO L8 END; 
L79t BEGIN L548 GO TO L55 END; 



10390530 T 0279 
10390540 T 0?88 



L78: BEGIN L17J BEGIN L18» GO TO Ll9 END END; 



10390550 T 0296 



L77I BEGIN L33I BEGIN LABEL L34J 



10390560 f 0308 
START OF SEGMg-NT ********** 93 



MONITOR FNOK CL34); L34* GO TO L35 



ENO END* 



L76J BEGIN L35: FOR I«-0 DO L36» GO TO L37 END' 



L?5* BEGIN L44J IF TRUE THEN Lft^GO TO L46 END; 
L42» BEGIN LABEL Lu3; 



MONITOR FNOK U43); L43t GO TO L44 END* 



L50» BEGIN LABEL L51* 



MONITOR FNOK (LSI); L5i: BEGIN GO TO L52 END 



end; 



L67J BEGIN LABEL L68; 



MONITOR FNOK CL68); L 68i BEGIN LABEL L69; 



MONITOR FNOK CL69); L69I GO TO L70 END £Nd' 



10390562 T 0000 



10390570 T 0003 
-ii-li 7 lONG, NEXT SFG 89 



10390580 T 0316 
10390590 T O33Q 

10390600 T 034a 



START OF SEGMENT ********** 



94 



10390602 f 0000 
94 T S 7 LONG, NEXT 5EG 89 



10390610 T 0348 



START OF SEGMENT ********** 95 



10390612 T 0000 
10390620 T 0005 



95 jS 7 LONG. NEXT S£G 
10390630 T 0352 



89 



START OF SEGMENT ********** 96 



10390632 T 0000 



START OF SEGMENT ********** 97" 
10390640 T 0000 



97 f8 

96 T S 



7 LONG, NEXT SEG 96 



2 
3 
4 
5 
6 
7 
8 
9 

10 

11 

12 

13 

14 I 

15 

16 

17 I 

18 

19 

20 * 

21 

22 

23 I 

24 

26 
26 I 

27 

28 

29 ( 

30 

31 

32 ( 

33 

34 

35 ( 

36 

37 

38 \ 

39 

40 

4,< 

42 

43 

44 I 

46 

46 



i 



47 

48 
49 
50 ' 
51 
52 

53 I 
54 
55 



m 



56 ' 
57 



5 LONG, NEXT 5£G 89~ 



>r 



L.5V: BEGIN LABtL L60, L6i; 



10390650 T 0336 



MONITOR FNQK (L60» L61); L6Q« FOR I»0 DO 



START OF SEGMENT ********** 98 
10390652 T 0000 



L61I GO TO 162 END* 



10390660 T 0006 



L ft4. 8 E GIN LAP£ t 165> L66 -JL 



98 t» 13 LONG, NEXT SEG 
1Q39 Q 67Q T Q360 „ 



89 



START OF SEGMENT ********** 



99 



13 

14 
16 



MONITOR FNOK CL65* I66)i L65» IF TRUE THEN 
L66, GO TO L67 ENClJ 



10390672 T 0000 
10390680 T 0003 



16 
17 
18 



99 



12 LONG* NEXT SEG 89 



19 

20 
21 



L74J 

END J 



10390690 T 0364 
10390700 T 0364 



22 
23 
24 



89 |S 372 LONG* NEXT SEG 



10 



25 
26 
27 



PROCEDURE P4Q; COMMENT DUMMY STATEMENT 
BEGIN 



EK 12N0V 62; 



lOaCOOtO T 0174 
10400020 T 0174 



28 
29 

30 



REAL a,b,c; 



10400030 T 0174 



31 
32 
33 



INTEGER J* K» L* i; 



START OF SEGMENT ********** 100 
10400040 T 0000 



34 

35 

36 

37 " 

38 

39 



BOOLEAN F#T; 



10400050 T 0000 



ALPHA BETA# 
ARRAY XC1833; 



10400060 T 0000 
10400070 T OQOO 



40 
41 
42 



LABEL Li; 



10400080 T 0001 



45 



TEMPU]* U 



i } i i 



10400090 T OOOi 
10400100 T 0003 



46 
47 
48 



GO to li; 



10400110 T 0003 



49 



51 
52 



53 
54 



55 

56 ; 



Ll» 
TEMPC23*- 2J 



10400120 T 0004 
10400130 T 0004 



FOR 1*3 STEP 1 UNTIL 8 DO 



10400130 T 0005 



BEGIN 



LABEL I2f 



10400160 T 0007 
1Q4Q0170 T 0007 



49 
50 I 
51 
52 
53 I 
54 
55 
56 < 
57. 



start of segment ********** ioi 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 



16 
17 
18 
19 



20 
21 



22 
23 
24 
26 
26 
27 
28 
29 
30 
31 



32 
33 



34 
35 
36 

37 " 
38 



40 
41 
42 



45 
46 
♦7 
•8 



49 
50 
51 
52 
53 
54 



55 
56 



BOOLEAN TH; 



10400j8G T 0000 



TEMPCI+5J*. I + 5jj ; 
TK» TRUE J 



; ; 



10400190 T 0000 
10000200 T 0002 



IF TR THEN GO TO L2> 



10400210 T 0003 



TEMPC15J «• 15; 



10400220 T 0004 
1Q4QQ230 T 0006 



lit 



10400240 T 0Q06 



TEMPCI3* ll 



ENDJ 



10400250 T 0007 
10400260 T 0008 



101 T S 10 LONG* NEXT SEG 100 



BEGIN 



REAL PROCEDURE ABCO 



10400270 T 0010 
10400290 T 0010 



BEGIN 
LABEL L3I 



10400300 T 0000 
1Q4QQ305 T OQOO 



START OF SEGMENT ********** 1Q3 



INTEGER JJ 



13 » 



10400306 T 0000 
10400310 T 0000 



FOR J*0 STEP 1 UNTIL 3 DO 



10400320 T 0000 



END 



10400330 T 0003 
10400340 T 0003 



TEMPU4J* ABCD; 
END ; 



FILL ANS[*] WITH QCTl* 0CT2# 0CT3# 0CT4# QCT5> QCT6* 0CT7» 
0CT10* 0CT11* 0CT12. 0CT13, 0CT14, 0CT15. OCTO, OCtO; 



103 jS 6 LONG, NEXT SEG 102 

10400350 T OTOO 

10400360 t 0002 

102 tS 3 LONG, NEXT S^G 100 

10400370 T 0011 

START BF SEGMENT **»»***«»* 104 

10400380 T 0012 



CVN «• 151 



104 i 8 15 LONG, NEXT SEG 100 
40400400 T 0012 



PN0«-40J VERIFY 



10400410 T 0013 



2 

3 
4 
5 
6 
7 
8 
9 
10 
11 



START OF SEGMENT ********** i02 



46 

46 

47 

48 

49 

50 

51 

52 

53' 

54 

55 

56' 

57 



end; 

V 


1040042c t ooi*. 

> 


1 

2 

3 PROCEDURE P411 COMMENT IF STATEMENT J* 31 3CT 621 


100 iS 21 LONG, NEXT SeG 10 '" 

2 

10410010 T 0174 


4 

5 BEGIN 

6 


4 

10410020 T 0l?4 5 

6 


' BOOLEAN A'Bl 

8 
9 


10410030 T 0174 7 

8 

START OF SEGMFNT ********** 1 OS 9 


to 

» LABEL ABLE* CAIN, F IN 1* NEXT; 

12 


10 

10410040 T 0000 " 

12 


13 PR§CEDURE N0THCF1#F2); 

14 

«5 BOOLEAN Fl»F2l 


10410050 T 0000 13 

14 

10410Q51 T 0000 


16 

' 7 BEGIN 

18 


16 

10410060 T OQOO ,7 

18 


is IF Fl 0« F2 THEN TEMPI33 * TEMP[33+4l 

20 

21 TEMPC33 «■ TEMP[3] + 6 


10410070 T 0000 « 

20 

10410080 T 0004 21 


22 

23 end; 

24 


22 

104J.0090 T 0006 23 

24 


»■■. A <• TRUE1 

26 

» . a * false; 


10410100 T 0007 25 

26 

18410U0 T 0008 27 


28 

» IF A ThEN TLMPd) ♦• l3b> 

30 


28 

10410120 T 0009 29 

30 


31 IF B THEN BEGIN TEMPC23*2J GO TO NEXT END; 

J2 

» TEMPC23 * TEMPC23 +3; 


10410130 T 0012 3i 

32 

10410140 T 0015 33 


34 

» next* if a then noth(a*b); 

36 


34 

10410150 T 0018 35 

36 


37 if a then go to able; 

38 

39 TEMPC43 «■ 1001 


10410160 T 0019 37 

■'38 

10410170 T 0020 39 


40 

4i ABLE' IF A OR B THEN T£«PU3 <• TEMPUj + 71 

42 


40 

10410180 T 0022 « 

42 


« IF A OR 8 THEN BEGIN TEMPC53 <• 8; 

44 

« TEMPC5] * TEMPC53 + 1 ENOl 


10410190 T 0027 « 

"44 

10410200 T 0030 46 


46 

» 7 IF A THEN BEGIN REAL M*N; 

48 


46 

10410210 t °033 *> 

48 


49 ' '...''■ 

50 ■■.'■'..■ 

51 M* TEMPC63 «• ill 


START BF SEGMENT ********** 106 49 

50 

10^10220 T 0000 5 < 


52 

53 N<- TEMPC53; 

54 


62 

10410230 T 0002 53 

54 


» . TEMPC63 «■ TEMP163 +1 END1 

56 ■■'■ 


10410240 T 0003 « 

56 

106 tS 8 LONG. NEXT SEG 105 4 



GU TO CAIN; 



10410250 T 0035 



>r 



i 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



16 
17 
18 
19 



20 
21 
22 
23 



24 
26 



26 
27 
28 
29 
iO 
31 
32 
33 
34 
35 



36 

37 " 



40 
41 
42 
43 



45 
46 
47 
48 



49 
50 
51 
52 
53 
54 
55 
56 

5- 



TEMPC7] «■ T£MP[7] + 30; 



10410260 T 0035 



IF A THEN CAIN! TEMP.C7J ♦ TEMP[7] ♦ 31J 
GO TO FINI; 



10410270 T 0038 
104l0?B0 T 0043 



TEMP[8] «• TEMP[8] + 27j 



10410290 T 0043 



IF 8 THEN FINI t TEMPC8] * TEMPC83+28; 

FILL ANS[«] WITH 0CT207* QcT3> QCT12* QCT7, QCTll* QCT14, 



10410300 t 0046 
10410310 T 0051 



START OF SEGMENT ********** iq7 



0CT37# 0CT34J 



104J0320 T 0052 
107 tS 8 LONG* NEXT SgG 105 



cvn* 8; 



10410330 T 0052 



PNO «• 411 
VERIFY 



10410340 T 0033 
1Q41035Q T 0054 



END' 



10410360 T 005<| 



PROCEDURE P42j COMMENT IF THEN ELSE STATEMENT JW 3l OCT b*i 



105 TS 57 LONG, NEXT SEG 
1q420q1o T 0174 



10 



BEGIN 



10420020 T 0174 



INTEGEH J* 



10420030 T 0174 
START QF SEGMENT ********** 108 



boolean A*e; 



lQ420040 T 0000 



INTEGER X»Yi 

LABEL BAKE, MANNY, MQE, JACK, DOG, EASY, FOX, LAST; 



10420050 T 0000 
10420060 T 0000 



A* TRUE/ 



10420Q70 T 0000 



b* false; 

X» Y * 4j 



10420080 T 0000 
10420Q9Q T OOOl 



J* O; 

IF A UR b THEN T£MP[U * TeMP £l J*g- eISe TeMPUJ ♦ TeMP[13+3; 

IF A AND B THEN TEMPC2J » TEMPC23+7 ELSE TEMPC23 * TEMPC2J+8; 



10420100 T 0Q02 
10420110 T — OOUT 



10420120 T 0011 



IF X>4 OR Y*7 THEN TEMPt3l * TEMPU3 + 9 ELSE IF A AND B THEN 



10420130 T 0019 



TEMPM3 ♦ TEMPC33-H1 ELSE TEMPC33 * TEMPC33+12' 

l¥ A AnO B IHEn TEMPE4] » T EMP[4]+17 E LSE I F X»Y' I HEN 



10420J40 T 0025 
10420i50 T — O-0T2" 



W~]* 



n 

2 
3 
4 
5 

6 
7 
8 
9 
10 



11 
12 
13 

'* 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



• 



ft 



• • 



N 

2 
3 



l'EMP[4] ♦■ TEMPUJ+18 LLSfc; TEMP[43 * TEMPL43+19; 



10420160 J 0038 



IF IF A OR B THEN X*Y ELSE X>Y THEN TEMPC5] ♦ TEMPC53+24 EL^E 
TEMP[83 + TEMP[51»25; 



10420170 T 0045 
10420180 T 0051 



4 

5 

6 

V 

8 

9 
10 
11 
12 
13 
14 

' 5 - 

16 

17 
18 



if a then go to bake; 



10420190 T 00S5 



j* j+i; 

BAKE: IF B THEN TEMFC63 ♦ TEMP[63+32 ELSE TEMP[63 » TEMPr6j+33 ; 



10420200 T 0056 
10420210 T 0057 



IF X«J THEN GO TO MANNY ELSE IF X=4 THEN GO TO MOE 



10420220 T 0064 



ELSE GO TU JACK; 
J > J+lOP; 



10420230 T 0067 
1Q4V0P40 T 0068 



MANNY: TEMPI?] ♦• TEMPt 7 i + 38; 



10420250 T. 0069 



19 

20 



21 
22 
23 



24 
25 
26 
27 
28 
29 
30 



31 
32 
33 
34 
35 
36 



GO to last; 

M0E» TEMPL73 *■ TEMP [ 73 +39; 



10420260 T 00^3 
1 Q4 20 27Q T 0Q73 



go to dog; 



10420280 T 0077 



JACK: TEMPC7J + TEMP [7J+4o; 

J* J + 31 ■ 



10420290 T GO 7 ? 
10420300 T 0081 



IF A THEN DOG« TEMPTS] * TEMPL8J+98 ELSE TEMPC83 * TEMPC83+99; 



10420310 T 0082 



go to easy; 

j* J+s; 



10420320 T 0089 
10420330 T 0090 



IF B THEN TEMPC9] «- TEMP[9]+3Q0 ELH IF A THEN 



10420340 T 0091 



37 
38 
39 



40 
41 
42 
43 " 



45 

46 
47 
48 



19 

50 
51 



52 
53 
34 

55 

56 

57 ,. 



EASY: TEMPC93* TEMP£93+3q1 ELSE TEMPC9] * TEMPC9J + 302; 

GO TO fox; 



10 fl 20350 T 0095 
10420360 T 0103 



j<- j+n 



10420370 T 0104 



IF A THEN TEMPClOJ* TEMPC1Q3+6Q0 ELSE IF B THEN 

FOX: TEMPE103 «• T£MPtlQ3+60l ELSE TEMPC1Q3* TEMP £ 1Q3+6Q2 ; 



10420380 T 0105 
10420390 T 0109 



go to last; 



10420400 T 0117 



J* J + 9J 

LASTI TEMPC113 ♦ j; 



10420500 T 0118 
10420510 T 0119 



FILL ANS[*3 WITH 0CT2» UCTiO# OCTU# 0CT22* 0CT30* 0CT41, 



10420520 T 0i2l 



0CT47* QC.Tl«g» 0CT455* OCTlUlj QCTOj 



START OF SEGMENT ********** 109 

10420530 T 0123 



109 tS 



11 LONG, NEXT SEG 108 



54 
55 
56 ' 

SI 



W~)9 



cvn* u; 



1042054Q T 0123 



PNO* H2> 
VERIFY 



10420550 T 0l24 
10420560 T 0125 



EK'Di 



10420^70 T 0125 



PROCEDURE P43J COMMENT IF FOR STATEMENT JK 31 OCT 62J 



108 fS 129 LONG, NEXT SEG 10 
10430010 T 0174 



10 

11 

12 



BEGIN 



10430020 t" 0174 



13 
14 
15 



BOOLEAN A*8> 



10430030 T 0174 
START OF SEGMENT ********** UQ 



16 
17 
18 



INTEGER Y/Zi 



10430040 T 0000 



19 

20 



A* TRUE* 

B» false; 



10430050 T 0000 
10430060 T 0000 



22 
23 
24 
25 



26 

27 

28 

29 

10 

31 ~ 

32 

33 

34 

35 



Z * Y «- 0> 



10430070 T 0001 



IF A THEN FOR Y * Y+l STEP 1 UNTIL 5 00 TEMPCl] * TEMPCl] + 5> 
IF B THEN FOR Z » I±l STEP l UNTIL 3 DO TeMP[2J 4. TEMP[23+3; 



10430080 T 0002 
1043009Q T 0011 



TEMPC23* TEMPC2]+4; 



10430100 T 0019 



FILL ANSt*3 WITH OCT 31# 0CT4; 



10430J20 T 0022 
START OF SEGMENT ********** 111 



Hi TS 



2 LONG, NEXT SEG HO 



37 
38 



CVN «- 21 

PNO* 43' 



10430120 T 0024 
10430130 T 0025 



40 
41 



VERIFY 



10430140 T 0026 



43 



eko; 



10430150 T 0026 
110 T S 29 LONG, NEXT S£G 10 



46 
47 
48 



50 
51 
52 
S3 



54 

55 
56 

67 



PROCEDURE P44; COMMENT FUH STATEMENT USInG THE ARITH. EXP. ELEMENT ; 



10440010 T 0174 



BEGIN 



REAL 



A'B>C; 



10440020 T 0174 
1Q440Q30 T 0174 



INTEGER Di 

INTEGER PROCEDURE THREECFAEX); 



START OF SEGMENT ********** H2 
10440040 T 0000 ~~ ~ 
10440050 T 0000 



57J 



INTEGEH FAEx; 



10440060 T 0000 



ft 



2 

3 
4 
5 
6 
I 
8 
9 
10 



11 
12 
13 
14 
15 
16 
17 
18 



19 
20 



21 
22 



23 

24 

25 

26 

27 

28 

29 

90 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 



38 



40 
41 
42 

43 ~ 



45 
46 
»7 
18 



49 
SO 



51 
52 
S3 
54 



55 
56 



BEGIN 



104/40070 T 0000 



THREE* FAEX + 2 ; 



en d; 



10440080 T 0000 
104A0n90 t 0001 



A* 27. ?,> Be 20; C<- b.5; TEMP[13«-5,5I TeMP[23«- H + 2732; 



10440i00 T 0003 



FOR C* 2+3 00 TEMPt33«- C+5, 
FOR C» B-A DO TEMP[43» C-2 } 



10440110 T 0010 
1Q44Q12Q T 0020 



FOR C«- TeMP[1] + TE^P C23 DO TeMP[53«- C; 



10440130 T 0025 



FOR C+ D.C44J2] + O.C40>33 00 T£MP£6] * C-8; 
FOR C» ♦ D.U414J + C-0tC«5!3]) DO TEMPC73 ♦ C; 



10440140 T 0032 
1Q44Q15Q t 0039 



FOR C* THREE(O) x THKEEC2) * 0. [44*43 DO TeMPC83 *■ C> 



10440160 T 0045 



FOR C* W AB»/ "A" DO TEMP[9]«. C-0 ,0588235294 U 
FOR C» "AB" MQD "A" DO TEMpCIO]*- C-U 



10440170 T 0053 
10440180 T 0061 



FOR O "AB" DIV THREEC2120) DO TEMPI 1 1 3 •• C; 



10440190 t 0068 



FOR C«- C+2 DO TEMPC12J* CJ 



FILL ANS[*3 WITH OCT 1 145400000000000* QCT7* QCT12* 



10440200 T 0076 
10440210 T 0081 



START OF SEGMFNIT »•»*»«»«*» 113 



OCT 3 131 1146 31463146* OcTlO lOQOOOOOOOO i44' 



10440220 T 0083 



QCTO# OCT 10* QCT140* 0CT101* QCTO, QCTO, 
QCT2; 



10440230 T 0083 
1044024Q T 0083 



113 T S 12 LONG, NEXT SfG 112 



CVN* 12* 
PNO<- 44^ 



10440250 T 0083 
10440260 T 0083 



VERIFY 



10440270 T 0Q84 



end; 



10440280 t 0084 
112 T 8 88 LONG, NEXT Seg 10 



PROCEDURE P45; COMMENT FOR STATEMENT USING ST£P UNTIL ElEmEN-T; 



10450010 T 0174 



BEGIN 



10450020 T 0174 



REAL A* B> CJ 



10450030 T 0174 
START OF SEGMENT «»*«*«»♦•» n« 



INTEGER l>Di 



10450040 T 0000 



40 

41 I 

42 

43 

44 { 

45 

46 

47 i 

48 

49 

50 i 

51 

52 

53 ( 

54 

55 

«l 

5? 



^r 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 



21 
22 



23 
24 



26 
26 



27 
28 
29 

30 



31 
32 



33 
34 
35 
36 

37 " 

38 

39 

40 

41 

42 

43 



45 
46 
47 
48 



49 
50 
51 
52 
53 
54 



55 
56 



REAL PROCEDURE CHECKClJi 



REAL V 
BEGIN 



CHECK*!; 1*1+2; 



end; 



INTEsER PROCEDURE FOUR (FSu)J 



INTEGER FSU; 



BEGIN FOUR * FSU + 2 i END> 
INTEGER PROCEDURE THREE(FAEX); 



INTEGER FAEX; 



BEGIN 



THREE* FAEX ♦ 2 ; 



end; 



A* 25.5 ; B* 20; C* 3.5i T£Mp[U * 3.5; TEMPC2J* ?; 
0*2732; L±5j 



FOR C * 2 + 1 STEP 1 UNTIL 5 DO TEMPC3U C; 



FOR C «■ B-A STEP C-C'5 + I) UNTIL A+B DO BEGIN 1*1 + 3; 
TEMPC4J * ci END; 



FOP C*- TEMPL1]+TEMH[2] STEP TEMP[i3 UNTIL 14 DO 



TEMPTS 3* C; 

FOR C» O.C44f2] * p.[40>3] STEP 1 UNTIL 0.C44U) 00 



TEMPC6]* c; 



FOR C* 0,t«*i«3*C-D»t«b»33) STeP 0. C45»U UnTjl 
D. £36143 DO 



templ/i* c ; 



FOR C* FOUR (2) x FOUR 10) STEP 5 UnUl FOUR Cj6) DO 

TEMPC63* C; ,,.;V" : ' : - V ,', ' .- ■',■, ' _ ■ 

FOR C* "AB"/2 STEP "A" UNTIL C M A"x 10)+ 1061 00 



TEMPC9]* C; ~ 

FOR C* "A9« MQD "A" STEP 1 UNTIL "A" 00 TEMP UQ3» C; 

TOR C* "Afcj" DIV THREE (2120) STEP D. t45»l3 UNTIL 



10450045 T 0000 



10450046 T 0000 

10450047 T 0000 



10450048 T 0000 



10450049 T 0002 
10 45 QQ5 Q T 0004 



10450060 T 0004 



10450070 T 0004 

10450071 T 0008 



10450072 T 0008 



10450073 T 0008 

10450074 T 0008 



10450075 T 0010 



10450080 T 0012 
10450090 T 0018 



10450100 T 0020 



10450110 T 0030 

10450111 t 0039 



I0450i20 T 0041 



10450130 T 0050 
10450140 T 0052 



10450150 T 0058 



10450160 T — OSW 
10450170 T 0066 



10450180 T 0069 
10450190 T — OOTT 
10450200 T 0077 



10450210 T 0079 
10450220 T 0CMBT" 
1Q45023Q T QQ9Q 



10450240 T 0098 



>r 



THREE(O) DO 



10450250 T 0103 



TEMP[llH at 
C»TEMP[1U; 



10450260 T 0i06 
10450265 T Q1 U 



FOR C«-C + THRtE(2) STEP 1 UNTIL C . [44 ; 3] +THREEC C , [45 a 3 ]- 1 ) 00 



10450270 T 0112 



TEMPC12HC/ 

FOR OFQURC2) STEP 2 UNTIL 15 DO C»CHECKCB); TEMP [ l33»Bi 



10450275 T 0i22 
1 Q450?76 J 01 24 



10 

11 

12 
13 

14 

15 
16 
17 
18 



FILL ANS[*J WITH OCT1010000000000034* QCT7, QCT5» 



10450280 T 0i32 



0CT113450524623Q276, 



0CT16, QCT14, 0CT12, QCT22, 



START BF SEGMENT ********** 115 
10450290 T 0l34 



0CT2300' QCT21* 0CT2> QCT7, 0CT26; 



10450300 T 0j34 



19 
20 
21 



cvn+ 13; 



115 T S 13 LONG. NEXT S£G 114 
— 1 Q 4 50 31 T QUA . 



22 

23 
24 



PNO «• 45; 



10450320 T 0135 



25 
26 
27 



VERIFY 



end; 



10450330 T 0i35 
10450^40 T 0135 



28 
29 
30 



114 T S 140 LONG, NEXT b£G 



10 



PROCEDURE P46; COMMENT FOR STATEMENT USING THE WHILE ELEMENT T 
BEGIN 



31 
32 
33 



10460010 T 0174 
10460020 T 0174 



34 
35 

36 
37 " 
38 
39 



REAL E'F'C; 



10460030 T 0174 



BOOLEAN A»BJ 



START §F SEGMENT ********** 116 
10460040 T 0000 



40 
41 
42 



INTEGER 



u> g; 



10460050 T 0000 



INTEGER PROCEOURE FIVE <FW$)J 
INTEGER FHS* 



10460060 T 0000 
10460070 T 0000 



«6 
47 



BEGIN FIVE * FWS x FWS END; 



10460080 T 0000 



E*15,5J F*16; G*5,5; D*2732; A*TKUE; 
B* FALSEJ 



49 

50 
51 



10460090 T 0003 
10460100 T 0007 



52 
53 



54 

55 



TEMPC13* 17; TEMPC23* 7i 



10460H0 T 0008 



56 



FOR Cf ,?*l WHILE A OR B DQ BEGIN A* FALSE; 
UHPCaj»>C ENQJ ... 



10460120 T 0012 
10460130 T 0016 



FOR C+ F-E WHILE A OR B 00 TEMPC4J* C; A* TRUE; 



10460140 T 0022 



N 

2 
3 

4 
5 
6 



10 
11 
12 
13 
14 
15 



16 
17 



18 
19 



20 
21 



22 
23 



24 
25 
26 
27 



28 
29 
30 

31 " 

32 

33 

34 

35 

36 

37 " 

38 



40 
41 
42 
43 



45 
46 
47 

ta 



49 
SO 



51 
52 
53 
54 



55 
56 

62- 



TEMP[G-l]«-5> 



FOR O " TEMPCU WHILE * ANO B OR A DQ BEGIN 
A» FALSE; TEMPCG3* C 



END. 



FOR O Of U«:23 '♦ D.C40*33 WHILE 
A EQV B EQV B EQV B DO BEGIN 



IF A THEN A* FALSE ELSE A* TRUE; TEMPC73+ C END; 



FOR C «■ FIVE (3) + FIVE (3) WHILE NOT B 00 BEGIN IF 
A THEN 



TEMPtej* C ELSE TEMPC8J* 01 8* TRUE END; 



a* true; b* false; 

for c» "ab" mqd "a" while (a qr b ) or b do 



BEG IN A± ^aLSe; 



TEMPC93 ♦ C x iO + FIVE C3> END; 



FOR C* "AB" DIV 11 WHILE A IMP B DO BEGIN 
FOR G* 190 STEP 1 UNTIL 



193 DO G* G; TEMPC103* C + G; A«- TRUE END; 
FILL ANSC*] WITH 0CT21* OCT''* UCT3, UCtO» 



10460150 T 0028 



10460160 T 0030 
104601/0 T 0034 



10460180 T 0036 



10460i90 T 0037 
10460300 T 0040 



10460210 T 0043 



10460220 T 0048 
10460P30 T 0052 



10460240 T 0052 



10460250 t 0058 
10460260 T 0059 



1Q4 $0?7Q T — 0jL6_3_ 
10460280 T 0064 



10460290 T 0069 
10460300 T 0072 



10460310 T 00?2 



0CT5* 



OCT2000000000000021 



OCTiO* UCT22' UCT23' UCT446* GCT23* UCT60 2 ; 



10i|60320 T 0Q8l 

S TART OF SEGMENT •»*»»*»»•» 117 
1046033Q t 0083 
10460340 T oral 



117 



12 LONG* NEXT S£G 116 



CVN ♦ IO; 



10460360 T 0083 



PNCJ *■ <it> i 
VERIFY 



10460370 T 0084 
10460380 T 0084 



end; 



10460390 T 0084 



116 T S 89 LONG, NEXT SEG 
PROCEDURE PU7; COMMENT THE FOR STATEMENT USING THE SUP WHILE ElEmEnT; 10470010 T 0l74 



10 



BEGIN 



10470020 T 0174 



"REAL £,F,C; 



10470030 T 0174 



40 

41 ' 

42 

43 

44 < 

45 

46 

47 ' 

48 

49 

50' 

51 

52 

53 < 

54 

55 

56' 

57 



START OF SEGMENT ********** lie 



BOOLEAN A, 8; 
INTEGER 0/ GJ 



104700«0 T 0000 
10470050 T 0000 



INTEGER PROCEDURE SIX(FSh); 



10470Q6C T 0000 



INTEGER FSW/ 

BEGIN SIX* (FSh + 2;x F5W EfyQj 



10470070 T 0000 
10470080 T 0000 



10 

n 

12 



E* 6.5; f* 5/ C* 7,5; i)+ 2?32 ; A«- TRUE; B* FAtSE/ 



10470Q90 



0004 



13 

14 

H5 



6*3* 

TEmPIU* 15 ; T£MP [23* 5; 



10470100 T 0009 
1047OU0 T 0010 



16 

17 
18 
19 
20 
21 



22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 



FOR C«" 3 STEP 1 aHIlE A OR 8 DO BEGIN G<- G-l 



10470120 T 0013 



A«- BQ0LEANCG.C46J13); 

TEMPC33* c end; a*- true; g* o; 



10470130 T 0019 
10470140 T 0020 



FOR C* K-E STEP-E WHIlE a AND B UR A DO BEGI\ 



1q47u15u t 0u27 



G*G + ENTXtH (CE - FU2U 

A* BOOLEAN CG,C45tU-t-l); T£mPC43»C + 0.C45:2] END/ 6*- 0} 



10470160 T 0032 
1047Qi70 t QQ35 



a *■ t a l. t ; 



lC470l7D t 0C42 



FOR C* TEMPI 13 + T£MP£2J STEP TEMPC23 WX£ A IMP g e<2V b qQ 
BEGIN G* G + SIXC2); a*- BOOLEAN CGtC43»13); 



10470180 T 0043 
1C47019G T 0C52 



34 

35 

36 

37 " 

38 

39 

40 

41 

42 

»3 



45 
46 
47 
18 
♦9 
50 
51 
52 
53 
54 
55 
56 
f 1 



T£'mP[o )*■ G + TF'iPC U E.^Li, 



1047020C T 0C55 



for c* six (3) + 0.c45.3] step six -(c) while not a dc 
begin a«-true; 



10470210 T 0058 
1C470220 T 0065 



TEMPC6] «■ C + E MOD F END/ G«- 0/ 

FOR C* "AB" MOO "A'VSTEP m A m WHILE (A OR B) OR B DO 



10470230 T 0C65 



BEGIN 



10470240 T 0069 
10470245 T 0074 



G* G ♦ SIX (0) + 



10470250 T 0074 



("A M MOD 9) J A* BOOLEAN <GtC43U})* A* NOT A; 
TEMP[73«- C MOO 100 END/ 



10470260 t 0076 
10470270 T 0079 



FILL ANS [*J WITH 0CT17/ 0CT5# 0CT4# 



10470280 T 0084 



PCT200000fOQ00.Q0O06» 



START OF SEGMENT ********** H9 
tQ47029Q T 0035 



0CT27/ QCT1010000000000244/ 0CT22J 



10470300 T 0085 



u> 



m • 



>r 



10 

11 

12 

13 
14 
15 



16 
17 
18 
19 
20 
21 



22 
23 
24 
25 



26 
27 



28 
29 



31 

32 

33 

34 

35 

36 

37* 

38 

39 



40 
41 



42 
»3 
44 
45 
46 
47 
•8 



49 
SO 



51 
52 
53 
54 



55 
56 



119 T S 7 LONG, NEXT SEG 118 



CVN* li 



10470310 T 0085 
10470320 T 0066 



VERIFY 



END* 



PROCEDURE P48; COMMENT FOR STATEMENT CONTROL VARIABLE GO TO 



construct; 



LABEL PNTl* PNT2>PNT3, PNT4, PNT5; 



INTEGE R 



Of H* Ji 



Nf-;AL C»E*F#G; 



BOOLEAN A, 6; 



INTEGER PROCEDURE EIGHT (FGT) i 



INTEGER FGT; 



BEGIN EIGHT* FGT. [45*3] END* 

£<■ 15,5J F + 7,5; C»2.0J A*- TRU E ; B» FAtS E ; p* 2732; G + 2 '* 



TeMPCD* 15; T£MP[2]«- 3; H«- «; J«- 10; 



FOR C«- TEMPC2] STEP 2 UNTIL TEMPC1] DO BEGIN C+ OUMPElJJ 
GC TO PNT1 £Np; G»S*1 i TEMPCG3* 5; 



pnU» g«-g+i; tempcg]<- c; 



FOR C* F*E STEP H UNTIL J DO BEGIN H* M+I7 J* j+U 
IF H > 8 THEN GQ TO PNT2 ENp; 6»6+U T£MP[g3» 6; 



PNT2I G + G +1/ TtMPCGU Ci 



FcR C* EIGHUT&MPEU + TEMP[23J STEP F WWlLE A Oft 6 Do BEGIN 
C* C + §; IF 



C>14THEN GO TO PNT3 END; 



PNT3I' G* G+i; TEMPCG3*- C; H* 4; 

FOR C» EtC12,?33 *HIIE A OR B 00 BEGIN H» H+i; IF H>6 THEN 



10470330 t 0087 



10470340 T 0087 
118 tS 91 LONG, NEXT SEG 10 



10480010 T 0174 



10480020 T 0174 
10480030 T 0174 



10480040 T 1 74 



START OF SEGMENT ********** 12q 
10480045 T 0000 



10480050 T 0000 



10*80060 T 0000 
10480070 T 0000 



10480080 T 0000 



16*80090 T 0000 
19480100 T 0003 



10480H0 T 0009 



1048Q12Q T 0Ql4 
10480i30 t 0021 



10480140 T 0029 



10480150 T 0033 
10480160 T 0040 



10480i70 T 0045 



10480180 T 0049 
10480190 r 0058 



10480200 T 0059 



10480210 T 0061 
10480220 T 0065 



2 
3 
4 

5 

6 

7 



9 
10 



57 



• • 



2 
3 
4 

5 



pm«« g* g+i; TtMPtGJv c+h; 



10480240 T 0072 



FnR o 2 step, l until 5 do for c«- c+5 step i until 15 do begin 

IF C*13 THEN GO TO PNT5 END i 



10480250 T 0075 
10480270 T 0061 



P\Tb: G«-G+i; TE^PCGJ* C 



10480280 T 0085 



•/ 

8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 



FILL ANSI*] WITH 0CT17, 0CT3* 0CT22* 0CT12, 



10^60290 T 0089 
START OF SEGMENT ********** \2\ 



OCT 1010000000000234* 0CT16' UtTl^; 



10480300 T OQ90 



CVN» 7i 



121 T S 7 LOhG» NEXT SEG l2o 
10480310 T Q0_90_ 



P\0* 48; 



10480320 T 0091 



19 
20 
21 



VERIFY 
EKD/ 



10480330 T 0092 
10460340 T 0092 



22 
23 
24 



120 tS 97 LONG, NEXT 5 E g 



10 



26 
26 
27 
28 
29 
30 



PROCEDURE P50; CQKcENT VALUE ASSIGNMENT - PROCEDURE CALLED B* V A I~LE 
EK 16 NOV bji 



10500010 T 0174 
10500020 T 0l7q 



RFGIN 



10500030 T 0174 



31 
32 



INTEGER X1*X2,X3#X<|'X5»&»J»IJ 



10500040 T 0.17'H 
START OF SEGMfNT ********** 122 



34 

35 

36 

37 ~ 

38 

39 



ARRAY A[l» J]» B[l :33» 



105COQ50 t 0000 



BOOLEAN T; 



I ARF1 TEST/ TAG* V.kli i 



10500060 T 0003 



105000 70 T Q0Q3 



40 
41 
42 



INTEGER FRLIEOLRE FUNC(A,X3j> N)J 



1 Q5Q0Q80 T 0003 



43 
44 
45 



ARRAY At 13> 



10500085 T 0003 



46 
47 
48 



INTEGER X3#N; 
BEGIN 



10500087 T 0003 
10500090 T 0003 



49 
50 

51 



FUNC «• UCl3-X3)xN 



10500100 T 0003 



^^ _ 

PROCEDURE VASSIG(FP1,FP2,FP3,FP4,FP5#FP6,FP7,FP8,FP9,FP1C>FP11, 



52 
53 
54 



10500HO T 0005 
10500120 T 0008 



55 

5« ■;. 

P7 



FP12*FPl3*FPl4#FPl5#FP16»FPl9fFP20#FP2i»FP22*FP23*Fp24* 



10500J30 T 0008 



55 
56 ( 
57 



FP25); 



10500140 T 0008 



"»n« 



>r 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 



IB 
19 



20 
21 



22 
23 



24 
25 



26 
27 



28 
29 
30 

31 " 



32 
33 

34 
35 
36 

37 ~ 

38 

39 



40 
41 



42 
43 
44 
45 
46 
47 
48 



49 
50 
51 
52 



53 
54 



55 
56 



VALUE FPt»FP2#FP3»FP4#FP5»F»'6»FP7; % REMOVED FP8 Qj-06-68 CEL 



10500150 T 0008 



INTEGER FP1*FP2# FP3#FP«>FP5* FP9, FP10, F Pll , ??\2, FP 1 3' 
FPl5*FP19*FP20*FF21*FP22#FP23»FP25,FP7 i 



10500160 T 0008 
; 05Q Ql6 5 t Q008 



BOOLEAN FP6,FPl44*FP2*»; 



105001^0 t 0008 



ARRAY 

BEGIN 



FP8U3* FP16C13; 



10500190 T 0008 
10500200 T 0008 



LABEL FP7i INTEGER I; 



10500210 T 0008 



COMMENT WHEN ALGOL IMPLEMENTS GQ TO NGN LOCAL LABELS 



START OF SEGMENT ********** 123 
10100215 T 0000 



THE ORIGINAL MEANING OF THIS LABEL DECLARATION 



10500217 T 0000 



SHOULD NE EXPLORED. S££ NOTES. i 
FP9 <- FFi i _ 



10500219 T 0000 
1050022Q T QfljQjQL 



FP10 «■ fp?; 



10500230 T 0001 



FPU ♦ FP3 ; 
FP12 «• fp«; 



10500240 T 0002 
10500250 T 0003 



FP 1 3 * FP5; 



10500260 T 0004 



FP14 «■ FP6; 
GO TO FP7; 



10500270 T 0005 
10500280 T 0006 



FP7I FPlb «- n095> 

FUR I * 1 STE^ 1 UNTIL 3 DU FP8 [U «■ IT 



10500290 T 0006 



FPl » Zi 



10500300 T "0T08 
10500310 t 0014 



FP2 * 8; 



10500320 T 0014 



FP3*FP2, [45*33> 
FP4 » FPft x FPU 



10500330 T 0015 
10500340 t. 0016 



FP5 » (FP2«FPl*3)x FPl; 



10500350 T OQlB 



FP6 *■ false; 



10500360 T 0020 



FOR I «■ 1 STEP 1 UNTIL 3 DO FP16[I] «■ FPBtn; 

FP19 * fpi; 



10500J70 T 0021 
10500380 T 0026 



FP20 ♦ FP2/ 
FP21 * FP3; 



10500390 T 0027 
10500400 T 0028 



h 



FP22 *■ FP4; 



10500410 T 0029 



i 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



FP23 * FP5; 



FP24 » FP6; 



10500420 T 0030 
mS0QZi30 T 0031 



FP25 «■ FP6C2J 



10500440 T 0032 



end; 



10500450 T 0033 ' 
12 3 tS 37 |, Q NG» N E XT S F G HZ. 



Integer procedure funkcx4,x5); 



1q5o046q j 0008 



13 

14 

N5 



INTEGER KU* K5i 

BEGIN 



10500/»65 T 0008 
10500470 T QOOfl 



16 
17 
18 



X4 * X4+2; 



10500480 T 0008 



19 
20 
21 
22 
23 
24 
25 
26 
27 
26 
29 
30 



xa * xs+i; 

FUNK «■ X4+ X5 



10500490 T 0010 
10500500 T 0012 



end; 



10500510 T 0012 



PROCEDURE VALQRD(Fi»F2»F3#F*'F5»F6#F7#F8#F9*FlG>J 
VALUE EJUUUJLSj-EXi±2J 



10500520 T 0015 
.10500530 T 0015 



INTEGER 



F1#F2#F3#F4#F5#F6#F7>F8»F9,F10; 



105005^0 T 00l5 



31 
32 
33 



BEGIN 



F6 » Fl f 



10500550 T 0015 
10500560 T 0015 



34 
35 

36 
37 " 
38 
39 



n ♦■ F2> 



10500570 T 0017 



F8 «• F3; 
F9 ♦ F4; 



10500580 T 0018 
10500590 T 0019 



40 
41 
42 



F10 «• F5 



10500600 T 0020 



end; 
procedure cal0rd(g1»g2#g3*g4,g5#g6,g7,g8,g9,g10); 



10500610 T 0020 
10500620 T 0021 



46 
«7 



VALUE Gl*G2»G3>G4#G5J 



10500630 T 0021 



•9 
50 
51 
52 
53 
54 



INTEGER Gl* G'2' G3# 64' Q3# G6> G7' G8# G9# GlO; 



10500640 T 0021 



BEGIN 



G6 » gi; 



10500650 T 0021 
iQSQOfibQ T 0021 



55 

56 



*L 



G7 «• G2J 



10500670 T 0023 



G8 * G3; 



10500680 T 0024 



56 
56 ' 

5'. 



h 



9 

10 

11 

12 

13^ 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

10 

31 

32 

33 

34 



36 

37 " 

38 

39 

40 

41 

42 

43 ~ 



45 
46 
47 



48 
49 
50 
51 



52 
53 



54 
55 



56 
57 



G? 4- G4J 



10500690 T 0025 



610 * G5 



end; 



10500700 T 0026 
10500710 T 0026 



xi «■ 4; 



10500720 T 0027 



X2 «- X3 ♦ 2i 

AC13 » A[2) » AC33 » 5; 



10500730 T 0028 
10500740 T 0030 



COMMENT ********KLUGE .CARD REMOVE (.ATER ********; 8IU +\i 



10500745 T 0034 



N * Xi 

J t u 



10500750 T 0036 
10500760 T 0037 



CALL*VASSi<i(N*A[3]#x"3.C45l3 3*FUNCCA#X'3#N)* <X2 + FUNCC A' X3> N ) )xA [ 1 J' 



10500770 T 0038 



IF X1>X2 THEN TRUE ELSE FALSE* H,- A# TEMPE13, TEMP£2], 
T£MFL33> TEMP[4], T£MP[53jT> T£MPC73»B' TeMPCU3> 



10500780 T 00*5 
10500790 T 0050 



TEMP[12]»T£MPU3 j» TEMP CU], TEMP C 15 J> NUT T# TEMP [17 })* 



10500800 T 0056 



FOR I «■ 1 STEP 1 UNTIL 3 00 TEMPCI + 73 «• BC 1 3# 
IF J > 1 THEN GO TO TAG ELSE 



l09008l0 T 0065 
10500fl20 T 0072 



for i «■ i step i until is do tempu + i7j «■ tempciji 



10500830 T 0073 



N «* 21 
XI » 31 



105008*0 T 0080 
10500850 T Onftt 



X2 «■ 4, 



10500860 T 0081 



X3 «• i; 



10500870 T 0Q82 



AU3* A[23 *A C 3 3 «■ 6} 
J * J+l> 



10500880 T 0083 
10500890 T 0088 



go to call; 



10500900 T 0089 



tag: xa «■ xs «• i; 



CALQRD(X4,X5,FUNK(X4,X5),X4»1,X5x2,TEMP[35 3,TEMP[36j,TEmPC37 3, 



10500910 T 00^9" 
10500920 T 0091 



TEMPI 38:1 ♦, im V-lWil 



VALORD( X4,x^NNK(x4,x5),x4 + i,x5x2,T£MP[40 3, T EMP£4l],TEMpt42]#- 
TEmP[433* TEMP[4^3); 



10500930 T 0097 
10500940 T — OoW 

10500950 T 0l06 



FILL AN5f#3 WITH QCT2# 0CT6* OCU* GCTU» QCT124, QCTQ» 



1050096J T OiOfl 



START OF SEGMENT ********** 121T 



• • 



N 

2 

3 
4 
5 



QCJ7777* OCT 7# 0CT7» OCT7* 0CT2> OCTlO* OCTO# QCT24* 



105009^1 T OHO 



UcTfl* OCTO* QCT7# QCTl* QCT5» 0CT2* 0cT3» 0CT31* 
OCTO> QCT7777* QCT7* 0CT7* QCT7* 0CT2* OCTlO* QCTO* 



10S00981 T OUO 
10500991 T 0110 



UcT6> 0cT4* OcTO* 0cT7> OcTl» OcTl* 0cT5* 0cT4» 



10501001 T OHO 



0CT4# 0CT3# QCT2* OCTlO, QCT6, 0CT6; 



10501011 T OHO 
124 tS 44 LONG, NEXT SEG 122 



10 

11 

12 
13 
14 

!5 
16 
17 
18 



CVN «■ 44; 



10501020 T OHO 



PNO ♦ so; 
VERIFY 



10501030 T OHO 
105010 40 T QUI 



E ND J 



105Q105Q T QUI 



19 
20 
21 



122 T S 118 LQNG# NEXT SeG 



10 



22 
23 
24 
25 
26 
27 
28 
29 
30 



PROCEDURE P51; COMMENT CALL BY N A ME FORMAL PARAMETERS 4,7,3.2 

NOV 20 1962 KM.; 

BEGIN 



10510010 T 0l74 
1 051 0Q20 T OlM 



10510030 T 0174 



LABEL 



LAB»LAB1#LAB3*UAB«'L1'L2»LAB5»LAB2»LAB6* 



10510040 T Ol74 
START OF SEGMENT ********** 125 



31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 



INTEGER B#C»0*E»F#6»h I 



1051005Q T 0000 



LABEL 5PECLAB1' SPECLAB2; COMMENT REMOVE LATER MAY 6 1*63; 
BOOLEAN LUQB; 



10510055 T 0000 
1Q510Q7Q T 0000 



ARRAY 



ARAE tl»l03i 



10910080 T 0000 



SWITCH SWCH*LAB3»LAH»LAB1'LAB2»LAB4J 
PRO CEDURE ABC tC^ARYl?; 



40 
41 
12 
43 
44 
45 



10510090 T 0001 
10510100 T 0008 



INTEGER c; 



10510H0 T 0008 



46 
47 
48 



ARgAY ARYUU i 

BEGIN 



10510120 T 0008 
1051013Q T 0008 



49 
50 
51 



FOR C*C STEP 1 UNTIL (C*C10*C>> 00 ARVl£C3 *C; 



10Si0i50 T 0008 



52 
53 
54 

55 

56 

4 



end; 
integer procedure def <ghj)j 



10510155 T 0016 
10510160 T 0017 



INTEGER GHj; 



10510170 T 0017 



55 

56< 

57, 



BEGIN 



10510180 T 0017 



N 

2 
3 
4 
5 
6 
7 



DEF *■ GHJ + (GHJ-1); 



End; 

RE AL PROCEDURE SPRl CSTFORMW 



Real stfqrm; 



BEGIN 

SPRl* 7 MOD STFORM 



end; 



PROCEDURE CALL C PI ,P2*P3,P4,P5,P6,P7,P8 ,P9,P1Q , - Pl l ,Pl2,Pl 3,Pl4, 
Pl7,Pl8)J 



integer 



P2* P5> P6* PIO, P12; 



BOOLEAN P3; 
REAL PROCEDURE Pill 



10510190 T 0017 



10510200 f 0018 
10510?10 T 0n2j 



1051021b T 0021 



10510220 t 0021 
10510230 T 0021 



10510240 T 0023 
10510250 T O"025~ 
10510260 T 0025 



10510270 T 0025 



10510280 T 0025 
10510265 T 0025 



r< 



PROCEDURE Pii, P\7, Plfll 



INTEGER PROCEOURE P9J 



ARRAY 

switch 



P4tl3l 

P7; 



LABEL 
«EAL 



P13, P14i 
T _ 



COMMENT Pfl IS PROCEDURE 



ABC 



P17 IS PROCEDURE 
Hi 8 IS PROCEDURE 



PRA 



P9 IS PROCEDURE 



DEF 



Pll IS PROCEDURE SPRl ; 



BEGIN 



INTEGER Qlj 



LABEL 
Ul * 3; 



LBL1* LBL2J 



105l0g9Q T 0025 



10510295 t 0025 



10510300 T 0025 
10510310 T 0025 



PI ♦ IF P3 THEN (Pi + QU ELSE (Pi *2>J 

~~^ Ft l ft Ql «• 2 STEP l 



IL 5 DO — P2 1 * P2 + oli 



10510320 t 0025 



10510330 T 0025 

10510331 T 0025 



10510332 > 0025 

10510333 T 0~025~ 



1051,0334 T 0025 



10510335 t 0025 



10510340 j 0C25 
10510350 T 0025 



START OF SEGMENT ********** j26 



10510360 T 0000 
10510370 T 0000 



10S10380 T 0000 



10510390 T 0004 



56 ' 
5} 



>r 



i 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
.15 



16 

17 
IB 
19 " 
20 
21 



22 
23 
24 



25 
26 



5 
a 
y 
o 
Q 

Q 



27 
28 



29 
30 



31 

32 

33 

34 

3S 

36 

37 " 

38 

39 

40 

41 

42 

43 ~ 



44 
45 
46 
»7 
48 



49 
50 
51 
52 
53 
54 
55 
56 



IF P3 THEN P3* FALSE ELSE P3«- TRgE; 



10510^00 T 0008 



P8(a»p.4); p5* P4£4]; P6«- P4~c4l ♦ P5 ; 

P171P3,P7>P4, LBLDJ 



10510610 T 0012 
105l0a20 T 0017 



LBLllP4[l]4- P9(P10>; 



10510430 T 0021 



pi2*pikpi2); 

COMMENT KLUQr CARn REMOVE LATrR *******; Pan] » pu z m ; 

P18(LBL2»P4»P3); 



105l0«40 T 0023 
10510445 T 0025 



10510450 T 0027 



lbl2*end; 



10510460 T 0030 
136 TS 36 LONG. NEXT SEQ 125 



PRQCF.UUKE PRACBCL* Sw»ARY>lBL>; 
BOOLEAN BOLT 



10510470 T 0025 



switch 



swj 



10510480 T 0025 
10510490 t 0025 



LABEL 



LBL, 



10510500 T 0025 



ARRAY ARYCU; 

BEGIN LABEL LABI, LAB2»L1J 



10510510 T 0025 
1C51052C t 0C25 



START OF SEGMENT ********** \27 



GO TO IF BOL THEN LABI ELSE LA82; 
LAB1» ARY[21»5; GO TO lli 



10510530 T 0000 
10510540 T 0004 



LAB2J ARYC2J* lo; 



10510550 T 0007 



LIS GO TO LBL 



end; 



10510560 T 0009 
10510570 T 0010 



127 



15 LONG, NEXT SEG 125 



PR@CEOU*E PRO<LBLL*ARRY#BLO)J 

LABEL LBLL; 

ARRAY ARRYC13J 
BOOLEAN BLOl 



10510580 T 0025 
10510590 T 0025 



10510600 T 0025 



BEGIN 



10510610 T 0025 
10510620 T 0025 



LABEL L2» LAB3#LAB4; 



10510630 T 0025 



GO TO IF &L0 THEN LAB3 ELSE LAB4J 



START OF SEGMENT ********** 128 
10510640 T 0000" . 



LAB3J ARRYC3J+ 5* GQ TO L2J 



10510650 T 0004 



1 
2 

3 

4 

5 

6 

7 

8 

9 

10 

11 , 

12 

13 

14 I 

15 

16 

17 I 

18 



19 

20 I 

21 

22 

23 I 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

36 I 

39 

40 

41 

42 



• 



43 

44 i 

46 

46 

47 ( 

48 

49 

50< 

51 

52 

53 ( 

54 

55 

56 ' 

57 



LAR4J ARRY C 3 J *• 10; 



>T 



10 
11 



12 
13 
14 

15 



16 
17 
18 
19 
20 
21 
22 
23 
24 
25 



I 

o 
Q 

5' 



26 
27 
28 
29 



30 

31 " 



32 
33 



34 
35 



36 

37* 



38 

39 



♦0 
41 
42 
43 



46 
46 



47 

•8 

49 "i ; 

50 

51 

52 

53 

54 

55 

56 



10510660 T 0007 



U$ GO TO LBLL 



ENOf 



10510670 T 0009 
10 3 1 6 5 T 0010 



DEFINE Al « (23/2) +CE-1)*; 
B » 23; L00B» TRUE; E» 5 MQp 3; 



f*io; 



COMMENT CLUGE. CARD REMOVE LATER; ARAEClJ * ARAEU3 i 



128 T S 15 LONG, NEXT S EG 125 

10510&85 T 0025 
10510690 T 0025 

10510700 T 0029 



COMMENT CLUGE CARD REMOVE LATER. THIS wAS INSERTED TO GET ARQUNO 
****** PRESENCE BIT FOR PROCEDURE PRA ANQ PRO WHIph ARE MARKED ABSENT 



10510705 T 0032 
10910710 T 0032 



****** IN THE STACK FOR PREOCEUuRE CALL. MAY2. 1963; 



1051071b T 0032 



PRA(LOOB,SwCH#ARAE,SPECLABj); COMMENT *** REMOVE MAY 6 "1963; 
SpECLABli L00B»TBUE; PRQ(SPECLAB2>ARAE»L00B)J CQMME N T REMqVE 6ATEr; 



10510720 T 0032 
10510725 T 0037 



SPECLAB2J COMMENT REMOVE LATER MAY 6 1963; 



10510727 T 0041 



CALL (A 1, BfLOGB,ARAE#C#D*$WCH.ABC#DEF,E,SPRi#F, 

IF TRUE THEN LAB3 £LS E LAB5* IF FALSE THEN LAB& ELS E 

SWCHC5J, PRA, PRO)# 



10510730 T 0042 
10510740 T 0053 



10510750 y 0063 



G* DEF(DEF(3)); 

TEMPEU»Ai; TEMPC2]»B; TEMPC33»REALCLOOB t C47;i3); 

FOR ri«- 4 STEP 1 UNTIL 10 DO TEMPCH] «• ARAE[H]; 



10510760 T 0068 
10510770 T 0073 



10510780 T 0080 



TLMP c 1 1 j «,c; TEMP 1 12 3 *D; TEMP [ 1 3 j *ARAE £2 3UEMP 1 14 3 *WAT"[W 
TEMPC153*- Ft TEMPC16]- ARAECjJj TEMPC173* G; 



10510790 T 0086 
1Q510800 T 0095 



LABI LAB1J LAB2I LAB3; LAB4» 



10510805 T OiOl 



LAB6? LABT1 

FILL ANS C*3 hlTH 



QCTt0l0O00O0QOOOl44# 0CT45, OCTO, 



10510806 TOi 02 
10510810 T °1 Q 2 



QCT4,0CT3, 0CT6, OCTO OCTtO# OCT.H# QCT12* 
0CT4«0CT10, 0CT12* 0CT3, 0CT7*QCT j2* OCT 1 1 i 



CVN * 17; 
PNO ♦ 5U 



START OF SEGMENT ********** 129 
I05l0g20 T Oi03 

10510830 f 0i03 

129 T S 17 LONG, NEXT SEG 125 
10510850 T 0~l03 

10510860 T 0104 



VERIFY 



2 
3 

4 
5 

6 

7 

8 I 

9 

10 

111 

12 

13 

,4 I 

15 

16 

,7< 

18 

19 

20 ( 

21 

22 

23 \ 

24 

26 

26 i 

27 

28 

29 I 

30 

31 

32 ( 

33 

34 

35 \ 

36 

37 

38 f 

39 

40 

41 

42 

43 

44 ' 

45 

46 

47 

48 



49 

50 

51 

52 

53 I 

54 

55 



13 

m 



55 



10510870 T 0l05 



m • 



2 
3 
4 
5 



END 



10510880 T 0105 



PROCEDURE P52; COMMENT THE READ STATEMENT IN EXTENDED Al_GQU 



125 T S 112 LONG, NEXT SEG 
10520010 T 0l74 



10 



BEGIN 



10520020 T 0i74 



7 

a 

9 
10 
11 
12 



FORMAT OUT READWRITE ( X10, "THE READ STATEMENT OF ALGOL"* 



10520030 T 0T74 
START 8F SEGMENT ********** i3Q 



START 8F SEGMENT ********** 131 



13 
14 



" WITH ALL ITS VARIOUS CONSTRUCTS OF"), 
SECONDLINE (X10* "READ* SPaCE* ETC HAS BEEN WRITTEN aS a SPEcI" 



1053.00*0 T 0000 
10520050 T 0000 



16 
17 
18 



19 

20 



21 
22 
23 
24 
25 



, "AL ROUTINE BY JQHN SKELTQN."), 



10520060 T 0000 



THIROLINE (*10* "TO TEST THESE ALGOL CONSTRUCTS TH£ I/0",Xx 
"PACKAGE IS TO BE USED")J 



10520070 T 0000 
1Q 5 20 Q8Q T 0000 



26 

27 

28 

29 

90 

31 " 

92 

33 

34 

35 

36 



131 tS 48 LONG, NEXT SEG 130 



FORMAT OUT FIRSTlINE (X10*"T£ST PROCEDURE NO, 052 



4.8"* 10520090 T 0000 
START OF SEGMFNT ********** 132 



".2. 3 EXTENDED ALGOL Re*D ST AT£M E NT m )J 



10520J00 T 0000 



WRITE (FNQKlDBL3*FIRSTHNE)J 



132 T S 16 LONG* NEXT S£G 130 
1Q520UQ T 0000 



WRITE (FN0KCDBL]»READWR1TE); 



10520120 T 0003 



WRITE (FN0KCDBL3, SECONDLINE); 
WRITE (FN0KCD8L3#THIRDLINE); 



37 
38 
39 
40 

41 
42 



10520130 T 0006 
10520140 T 0009 



end; 



10520150 T 0012 



43 



PROCEDURE P53j COMMENT THE wRITe STATEMENT IN EXTENDED ALqQl; 



130 t s 13 LONG* NEXT SEG 10 
10530010 T 0174 



46 
47 
48 
49 
50 
51 
52 
53 
54 
55 



56 
67 



BEGIN 



10530020 T 0174 



FORMAT OUT FIRSTONECXIO* "TEST PROCEDURE NQ. 053 



~ ".3,3 EXTENDED ALOOL WRITE STATEMENT*)* 
WRITENOTE CX1Q»"THE WRITE STATEMENT OF ALGOL WITH", 



4t8", 10530030 f Oj74 

START 9F SEGMENT ********** 133 
START OF SEGMENT ********** 134 

10530040 T SoUO" 
IQ 53QQ5Q T . Q Q 



" ALL ITS VARIOUS CONSTRUCTS OF"), 



10530060 T 0000 



50 1 
51 
52 
53 4 
54 
55 
56 ' 
5? 



m t 



-^ 



ft 



WHITETIMOCXIO* "WRIT£*SPaCE'ETC. HAS BEEN WRITTEN"* 



105300?0 T 0000 



" AS A SPECIAL ROUTINE BY -JOHN SKELTON,"), 
WRITEIASTCX10*"TQ TEST THESE ALGOL CONSTRUCTS THE", 



10530080 T 0000 
10530090 T 0000 



" I/O PACKAGE IS TO BE USED"); 



10530100 t 0000 



WRITE(FNQK[PBL3*FIRSTQNE); 



134 T S 63 LONG* NEXT S£ G 133 
10530110 T 0000 



wRlTECFNQKCOBLl/WRITEiNUTL); 



1q53012q t 0003 



WRlTE(FNOKtOBL3'WHlTETWO); 
WRITE(FNQKCQBL]*WRITELAST)i 



10530i30 T 0006 
1053Q14Q T 0000 



END' 



PROCEDURE P55; COMMENT FILL STATEMENT 



EK 



12 NOV 62; 



BEGIN 



INTEGER ARRAY lNTCl>23i 



ARRAY A* B, Q, R[li2]# CCli5], MATRI X[ 1 |3# H 3 J ; 



INTEGER I* J, v; 

STREAM PROCEDURE F L AGCHK (pUMl* DUM2* DUm3); 



BEGIN 



si*dumi; 

DUDUM3J 



DU DI + 7; 
IF 58 THEN OS* 1 $gt t 

SI » 0UM2; 



IF SB THEN OS* 1 SET; 



SI* DUM3; SI* SI+ 7i 

Dl»DUMi; IF SB THEN OS* 1 RESET; 

0'I*DUM2i IF SB THEN DS* I RESET) 



end; 



:..F 



«3 WITH 549755&13S87> •94.9755813867 J 



10530J50 T 0012 



133 tS 13 LONG, NEXT SEG 

1Q55Q Q1Q t 0174 



10 



10550020 T Oi7<» 



10550030 T 0J74 
START OF SEGMENT ********** 135 



10550040 J °00l 



10550050 T 0008 
10550^60 T 0008 



10550170 r 0008 



10550180 T 0009 
10550190 T 0009 



10550200 T 0009 



10550200 T OqW 
10550220 T 0010 



1055023Q T 0010 



10550235 T 0011 

10550236 T 0Q12 



10550237 T 0013 



10550240 T 0014 

10550241 T 0014 



START OF SEGMENT ********** 136 



rf 



1 

2 
3 
4 
5 
6 
'/ 
8 
9 
10 
11 
12 
13 



14 

us 

|16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

13 

34 

35 



36 

37 " 
38 



39 
40 
41 
42 



43 
44 
45 
46 
47 
(8 



49 
SO 



51 
52 
53 
54 



55 

56 



FILL AC*3 WITH 4,3063* 7 *8956> 



FILL BC * 3 WITH M EDW > W KEH"; 



FILL C C * 3 WITH l.Oi "TWO", 0»3el,0»0i 



FILL »UTRIXLI,*3WITH 



"OlA" ,o,o; 



FILL MATRIXC2#*3 WITH 0* "Q0N w ,Q, 



FILL MaTRIXC3»*3 WITH Q'0# w AL",* 



FILL 0C*3 WITH QCT777, 111; 



136 T S 



2 LONG, NEXT S£G 135 



105502*0 T 0016 
START OF SEGMENT ********** 137 



137 T S 



2 LONG, NEXT SEG 135 



138 jS 2 LONG, NEx* S EG 135 



1Q550244 T 0020 
START Qr SFfiMfNT ********** |3« 



139 IS 



5 uONG, NEXT 5EG 135 



10550245 t 0022 
STAR T OF SEGMENT ********** 14g 



HO T s 



3 LONG, NEXT 3EG 135 



HI tS 



3 LONG, NEXT SEG 135 



10550247 T 0027 
START OF SEGMENT ********** 142 



142 iS 



3 LONG, NEXT SEG 135 



10550248 T 0029 
START OF SEGMENT ********** 143 



143 j[S 2 LONG, NEXT SEG 135 



FILL RE *3 WITH OcT400000000000000l# GCT7777777777777777; 



10550249 T 0Q3l 
START OF SEGMENT ********** 144 



144 r S 



2 LONG, NEXT 5£G 135 



FLAGCHK(RU3,R[23»V)J 



10550250 T 0033 
1Q550251 T 0033 



TEMPC233* RC13; 



10550260 T 0036 



TEMPC24J ♦ RC23i 
TEMPC2S3 » V; 



10550270 T 0039 
10550280 T 0041 



T£MP[13 *• 1NTC13; 



10550243 T 0018 
S TART OF SEGMFMT ********** 1 3fl 



1 
2 
3 
4 
5 

6 
7 
8 
9 
10 

"I 

12 

13 

14 < 

15 

16 

17 ( 

18 

19 

20 ( 

21 

22 



• 
1 
C 



10550246 T 0024 
START OF SEGMgNT ********** 141 



23 ( 

24 

25 

26 I 

27 

28 

29 ( 

30 

31 

32 { 

33 

34 

35 ( 

36 

37 

38 ( 

39 

40 

41 

42 



43 
44 I 
45 
46 
47 ( 
48 



49 
50 { 
51 
52 
53 \ 
54 
55 
56 I 
57. 



10550290 T 0043 



m • 



>r 






1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 



22 
23 
24 
25 



26 
27 



E 

o 
Q 

5' 



28 
29 

30 
31 



32 
33 



34 
35 



36 

37 ' 



38 
39 



40 

41 



42 

43 ~ 

44 

45 

46 

47 

18 

49 

50 

S1 

52 

53 

54 

55 

56 

57 



TEMP[2] <• INT [23; 



10550300 T 0045 



TEMPC3] «• acu; 
TEMP[43 <• AC23 J 



10550310 T 0Q48 
1Q55 3 20 T 0050 



TEMP[53 ♦• dtl']'; 



10550330 T 0053 



TEMPC63 «■ BL2J.J 

FOR I»l STEP 1 UNTIL 5 00 TEMPCI+63 » CCI3; 



10550340 T 0055 
10550350 T 0058 



TEMPC12J ♦ DCU' 



10550360 T 006ft 



TEMPC133*0t2J; 

FOB j «• 1 ST£P 1 UNTIL 3 00 TEMPCJ+133 » M A TRlx[l»U3; 



10550370 T 0066 
10550380 T 0069 



FOR J «• 1 STEP 1 UNTIL 3 DO TEMPCJ-H63 ♦ MaTRIX[2*j3; 



10550390 T 0076 



FOR J «■ 1 STEP 1 UNTIL 3 00 TEMPU + 193 * MATRI X C 3* J3 ; 
FILL AN3[»] WITH QQ17777777777777* 0CT2007777777777777* 



10550400 T 0084 
10550410 T 0092 



C T 7 2 2 471745413117* 0CT627747624362477* 0CT252466* 
0CT42253Q, QcTl, 0CT636646, QCT3, QCTO, QCTO, 0CT777, 



IO55O420 T 0094, 
10550430 T 0094 



0CTl57# 0CT243121* QCTO* QCTO* OCTO* 0CT274645, OCTQ* 



1055042Q t 0094 



OCTQ* OcTO» 0CT2143' OcTl* OCT 37777777777777/7* 0CT6Q* 



CVN «• 25/ 



PNO «• 55; 

VERIFY 



10550450 T 0094 

1 45 T S 25 LONG. NEXT 3 E G 135 

10550460 T 0094 

10550470 T 0095 
10550480 T 0095 



end; 



10550490 T 0095 



PROCEDURE P57;C0MMENT TYPE DECLARTION OWN* 



135 fS 102 LONG, NEXT SEG 
10570010 T 0174 



T0~ 



BEGIN 



INTEGER INDEX, TIMU — LABEL INITIAL 



10570020 T 0174 
10570030 T 0T7X 



START OF SEGMENT ********** 146 



TIME*-!; INDEX «• i; 



10570Q40 T 0000 



INITIAL! BEGIN 

OWN REAL FLQATONE#FL0ATWQ, 



10570050 T 0001 
10570Q60 T 0002 



START OF SEGMENT ********** ^7 



ft 

2< 
3 
4 
5( 



START QF SEGMENT ********** \Ub 



56 ' 

57, 



• • 



^r 



OWN BGULEAN THUO'FALSS; 



10570070 T 0000 



OWN INTEGER ONE* TWO* THREE** 
OWN A(.PHA ALPHjBETA; 



10570080 T 0000 
10570090 t 0000 



IF TIME «1 THEN 



10570U0 T 0000 



BEGIN 
FL0AT0NE«-5i T IME + T IME*1 i 



10570120 T 0000 
1057Q13Q T 0001 



10 

11 

12 



TRUU «• TKUE> 



10570140 T 0003 



13 

14 

H5 



ONE * ii 
ALPH * "ABC" 



105701 50 "T 0004 
1Q57Q16Q T 0004 



16 
17 
18 



eno; 



10570170 T 0005 



19 
20 
21 
22 
23 
24 
25 
26 
27 



TEMPCINOEX) «" FL0AT0NE; 
TEMPCINDEX] «• REALCTRUU?; 



INOEX * INDEX ♦ l; 



TEMPCINOEX + n ♦ one; 



TEMPCINOEX ♦ 2] «• ALPHi 

end; 



INDEX * INDEX +3 



10570180 T 0005 
10570190 T OOOfl 



10570200 T 0010 



10570210 T 00l2 
10570 2 30 T ,00 15 



28 
29 

30 



147 T S 18 LONG* NExT S£G 146 



31 
32 
33 



BEGIN 



OWN REAL FLQATONE>TRUu,QNE>AlPH ; 



10570235 T 0003 
10570240 T 0003 



34 
35 



36 

37 " 
38 



START OF SEGMENT ********** 14a 



FLOATONE ♦ l.C* 
TRUU ♦ 22 ; 



10570250 T 0000 
10570260 T 0000 



40 
41 
42 



ONI «• 24J 



10570270 T OQOl 



43 
44 
45 



ALPH * 29 



end; 



10570280 T 0002 
10570290 T 0002 



46 
47 



148 T S 



5 LONG, NEXT SEG 146 



«9 

50 



52 

53 



IF TIME«2 THEN BEGIN UME*TIME*U GO TO INITIAL END; 
FILL AnSC»3 WITH QCT5, OCTl, OCTl, QCT212223, 



10570300 T 0004 
10570310 T 0007 



START OF SEGMENT ********** 149 



55 
56 



0CT5* UCTl# 0CT1# 0CT212223; 



10570320 T 0008 
149 tS 8 LONG, NEXT SEG 146 



CVN *■ Qi PMQ ♦■ 57 ', VERIFY 



10570330 T 0008 



55 
56< 

57 



A t 



1 

2 
3 
4 
6 
6 
7 
8 
9 
10 
11 



end; 



10570340 T 0010 



PROCEDURE F6Q;C0MMENT 5,2*3.3 TYPE ARRAY ,HARRY, NOV 27. i 



BEGIN 



146 T S 13 LONG, NEXT S£G 10 

10600010 T 0l74 

10600020 T 0i74 



ARRAY QNE,TW0E1*1Q3; 



10600030 T Oi7<l 
START BF SEGMENT ********** ISO 



REAL ARRAY THREE, FOUR' F I V£' S IX C 1 * 5, 2 I 8 J ; 



10600040 T 0002 



14 
15 
16 
17 
18 



19 
20 
21 



INTEGER ARRAY SEVEN, ElGhTC 1 |5],NINE£ U9 }} 
BOOLEAN ARRAY ELEVEN C 1 U0233 ; 



10600050 t 0004 
10600060 T 0008 



ALPHA ARRAY TWELVE C 1 * 10 3 J 



10600070 T 0010 



INTEGER I'M BOOLEAN B,BQL; 
I»4i N»15> B» true;bol » fALSf 



10600080 T 0012 
10600090 T 0Q12 



22 
23 
24 
25 



28 
27 
28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 



BEGIN 



COMMENT DYNAMIC; 



10600100 T 0015 



OWN REAL ARRAY Rj C I-3«N+53; 



10600HO T 0015 
START OF SEGMENT ********** 151 



OWN INTEGER ARRAY II [ I» I* N U 



10600120 T 0005 



0«N BOOLEAN ARRAY Bi C1UF B THEN I + N ELSE N"9 H 
OWN ALPHA ARRAY Al , A2, A3 C 1 UO J ; 



10600130 T 0010 
10600140 t 0017 



oNEci] «■ i; 



10600160 T 0020 



THREECl#U*Ii 

SEVENCl + U » NINEU + *3»LIGHT[N«3xIJ * 2; 



10600170 T 0022 
10600180 T 0025 



FOR I «. 1 3T E P A UNTIL 1024 DO ELEVEN CI 3 ♦• 8 ; 



10600190 T 0031 



TWELVEtn* "HARRY"; 

I «■ 4i RH13 » Rl [183 * I1C43 * IK&Q3 «■ 1 J 



10600200 T OOlF 
1q6Q0210 T 0038 



46 
47 
<8 
49 
50 
51 



52 
53 



54 

55 
56 



bi c 193*. true; 



10600220 T 0045 



AitU «• «hahry»; 

tempcu** onecu; 



10600230 T 00*7 

10600231 T 0049 



TEMPC23* THHEEtl, 13; 



10600232 T 0051 



TEMPI33* SEVENCI + 13,* 
TEMPC4J* REALCELEVENC533; 



10600233 T 0055 

10600234 T 0058 



TEMPC53*- TWLLVEtn; 



10600235 T 0061 



>r 
1 

2 

3 



TEMP[6]«- R 1 C 18 j; 



10600236 T 0063 



TEMP[7]*REAL CBt C19] »i 
lEMPJJlJvAUllJ 



10600237 T 0066 

10600238 T 0068 



FILL ANS[*] WITH OCT 1# UcU> QCT2* OCTl* 0CT3021515170* 



10600240 T 007 1 



O C Tl * OCTl* QCT302 151 ^17QJ 



START OF SEGMENT ********** 152 
1 Q6QQ 2 5 Q T QQ7?. 



10 

11 

12 
13 
14 
IB 
16 
17 

ia 



152 T S 



8 LONG* NEXT 5 E q 151 



CVN * 8* pno * 6o; verify 

ENO END) 



10600260 T 0072 
10600970 T 0074 



151 T S 80 LONG, NEXT SEG 150 



19 
20 
21 



PROCEDURE P61JCQMMENT BOUND PATR LIST 



150 fS 23 LONG* NEXT SEG 10 
10610010 T Ql7q 



22 
23 
24 
25 
26 
27 
28 
29 
30 



BEGIN 



10610020 T 0174 



INTEGER I,J#K; 



10610030 T Ql74 
START BF SEGMENT ********** 153 



ARRAY BOUNDcH13»MiNUS[»10t-iQ3»HONUS(: -15«-1Q3> 



1Q610 Q5Q T OQOQ 



31 

32 

33 

34 

35 

36 

37 " 

38 

39 



bPLITC-l5«14J>LlMlTt2li023JJ 



10610060 T OOlO 



I * lj J* 6 ;k* 6; 

BEGIN 



10610065 T 0013 
10610Q7Q t 0015 



ARRAY DYNAMICCnj3>EXPU»153#UPPERC SU*J]# 



10610080 T 0015 



40 
41 
42 



DIMIC 1'Itl # J» J»i»K»K + l»Hl> 1 11 31 



START OF SEGM£ N T ********** 154 
10610Q90 t QQH 



45 



B0UNDC13 *i;m1NUSC-103* 10) MONUS C133* 13* 



106l0j00 T 0025 



46 

»7 
«8 



SPLlTt 113* 11; LIMITt 10233*- 24/ 

TEMPtU «• 1J TEMPC2] ♦ lO;TEMPC3] *i 3; TEMPC4 ]*■ U) 



I06l0jl0 T 0031 
106l0i20 t 0034 



49 
SO 
51 



TEMPC53* 24 



i 



10610130 T 0041 



52 
53 
54 



TEMP[63«- DYNAMIC[6J* 6; 
TEMPC7J4- EXPC153 «■ 15) 



10610140 T 0043 
10610150 T 0046 



55 

56 



TEMP| 83 * UPPER C73 ♦ 71 



10610160 T 0050 



55 

56 ' 

5? 



TEMPC93 «• bTMTC27T777T7l 3*277; 



10610170 T 0053 



> 



1 

2 

3 

4 

5 

6 

7 

8 

9 , 

10 

11 

12 

13 

14 

IB 

16 

17 

18 



END 



10610180 T 0061 



FILL ANSC*3 WITH QcU> QCTj2» QCT15* QCT13, QCT30* 



154 T S 65 LONG, NEXT SEG 153 
10610190 T 0016 



START OF SEGMENT ********** 155 



0CT6* £JCTi7* QCT7* 0CT425J 



10610200 T 0017 



PNO »61JCVN f 9} VERIFY 



155 jS 9 LONG, NEXT »EG 153 
10 6 1 210 T OW 



19 
20 



21 
22 



23 
24 
25 
26 
27 
28 



29 
90 



31 
32 



33 
34 
35 
36 



END* 



10610220 T 0019 



PROCEDURE P62; COMMENT SWITCH DECLARATION 



EK NOV 26 62; 



153 JS 28 LONG, NEXT SEG 10 
1Q620Q10 T 0174 



BEGIN 



10620030 T 0174 



INTEGER XI* X2' X3, X4, X5; 



10620030 T 0i74 
START OF SEGMENT ********** 156 



LABEL L1#L2*L3,L4,l5,L6#l7,L8#L9#L10*L11,L12,L14,LL1,LL2,LL3, 



1q6200*0 T 0000 



LL4,LL5,LAB,LABi; 
SWITCH S2 forward; 



10620050 T 0000 
10620Q55 T 0000 



SWITCH Si «-L1*L1,L1,L1»L1,L2,L2,L2#L2,L2#L3*L3,l3,L3,L3,L4,l<»# 
L4,L4*L4,L5/Lb,L5'L5A5*IF Xl a X2 TheN H> ELS E I? , 



1 0*200* Q f 0000 



L6,L6*L6*L7^L^L7>L7*S 2CXl42 3 *S2 [ 3 ] * L 8,L8* L8*L Q* L8-e- 



10620070 T 0002 
106^0080 T 0058 



37 
38 

39 
40 
41 
42 
•3 



45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
67 



L9>L9,L9,L9,l9#L9,L1Q*HQ#H0,L10,S2£4],S2[4],lU> 



10620090 T 0086 



LH»L11>LH'LU,l12,l12>L12#l14,l14, l 14,l14; 
SWITCH S2 ♦ LLl'LL2»LL3*LL4*Sl[X4xi3+l3; 



10620jO0 T 0H2 
10620H0 T O168 



xi * u 



10620120 T 0108 



X2 ♦ 2; 

X3 «- 3; 



10620130 T 0189 
10620140 T 0l90 



X4 * 4; 



10620J50 T 0190 



X5«-5; 

go to sun; 



10620155 T 0191 
10620160 T 0192 



Ll« TEJ8PC1J * i; 

■<■ ... • • » 

IF Xl > 1 THEN GO TO LAb; 



10620170 T 0194 
10620180 T 0i96 



• • 



n 

2 
3 



5 
6 
7 
8 
9 
10 
11 
12 



xi «- xi + i; 



TEMPC23 «• TEMPtl] + i; 
GO TQ SUXU) 



LAB* GO TO S1C63; 



L2* TENPC33 ♦ 3; 
GQ TO S1EX3X2+X5]J 



10620190 T 0198 



10620200 T 0199 
1Q6 2Q P 1Q T 020 2 



10620220 T 0204 



10620230 T 0207 
1 Q 6202« Q T 0206 



L3 : TEMPC4 J «• 4; 



10620250 T 0211 



13 

14 
(15 



GO TO SU233; 
LS» TEBPC53 * 5; 



10620260 T 2 13 
10620270 T 0215 



16 
17 
18 



GO TO SU16J5 



10620280 T 0217 



19 

20 

21 



L4t TEBPC63. *■ 6i 
CO Tn S1T263; 



10620290 T 0219 
1 062010 Q T 0?21 



22 
23 
24 
25 
26 
27 
28 
29 
30 



L6J TEMPC7J *■ 7> 



XI * Xl-1* 

GO TO SU263; 



10620310 T 0223 



10620320 T 0225 
10620330 T 0327 



1.7: TEMP[8]*8> 



GO TO S1C343J 
LL3? TEMPC9] «. 9; 



10620340 T 0229 



31 
32 
33 



10620350 T 0230 
10620360 T 0232 



34 
35 
36 

37 " 

38 

39 



IF Xl> 1 ThLN GO TO LABi; 



10620370 T 0234 



xi «- xi + i; 

TEMPC103 t TEMPC93 +11 



IO62O38O T 0236 
106 20390 T 0237 



40 
41 
42 



GO TO S1C35]; 



IO62O4OO T 0240 



43 



45 



LABI* SO TO S1C373; 
181 GQ TO 31C423J 



10620410 T 0242 
10620420 T 0245 



46 
47 
48 



L9: TEMPCU3 ♦- 11; 



10620430 T 0247 



49 

so 

51 



GO TO SH483; 

L10« GO TO S1C513J 



10620440 T 0248 
10620450 t 0250 



53 
54 
55 

56 



LL4: TEMP L 12J «■ 12* 



GO TO S2C53I 

Lll» TEMPC133 » 13J 



IO62O46O T 0253 



10620470 T 0254 
IQ62Q48O t 0256 



52 
53 ( 
54 
55 
56 1 
57. 



gu to insyj; 



10620/490 T 02be 



m • 



h 



i 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



16 
17 
18 
19 
20 
21 
22 
23 
24 
25 



Q 

S 1 



26 
27 
28 
29 

30 

31 "* 



32 
33 



34 
35 



36 

37" 



38 
39 
40 
41 



42 
43* 



45 
46 
47 
48 
49 
50 
51 
52 
53 
54 



55 



H 



L12* GO To Si [6*,]; 



IO62O5OC T 0^60 



Ll«i 7EMPCl4]*i4; 
-LkU kk2J 



10620510 T 0263 
106g(Kl5 T 0?64 



FILL Ar,S 1*1 WITH OCTl* GC;2, GCT3, 0CT4, GCt5, 0Cf6, CCt?> 



10620520 j 0265 



OCTlO* QCT11, CCT12# QCT13, QCT14, QCT15, GCT16; 



157 T S 14 LONG» NEXT SEg 156 



CVW * 14 J 

BO* 62; 



10620540 T Qg66 
10620550 T 0g67 



VERIFY 



10620560 T 0268 



END! 



10620570 T 0268 
X56__lS 275 LONG, NEXT SEG 



_L0_ 



PROCEDURE P6j; COMMENT SmITCH LliT EXPRESSION EVALUATION' 5.3.4 CCZ^ 



lO 6 3OO 1 T Ql?4 



BEGIN 



LABEL LI* L2, L3* LU, L5; 



10630020 T 0l?4 
10630Q30 T 0l7ft 



START OF SEGMENT ********** 158 



INTEGER Hi 

SWIT C H SW1»IF Il«l THEN U ELS E ip H»2 Th E n L2 E ls E IF 1 1* 3_ 

THEN L3 ELSE L4; 



10630040 T 0000 
10630050 T 0000 



10630060 j 0009 



INTEGER PROCEDURE FCllJ' 
INTEGER Hi 



10630070 T 0017 
10630080 T 0017 



BEGIN F*I1*TEMPCI1 J*lt-1 ENDJ 



10630090 j 0017 



SWITCH SW2 FORWARD; 



IO63O1OO T 0023 
1 0630110 T 0023 



SWITCH SW2<-15,SW21FCI1)J# SW2CF(Il)3i 
ll+2i qQ TO SW2tin; LT» TEMPEi3*Il + l> 
FOR Il»l STEP 1 UNTIL 3 DO 



10630120 T 0023 



10630J30 T 0037 
10630140 T 0043 



BEGIN GO TO SWl 1 1 3i 



10630150 T 0Q44 



"LH BEGIN TEMPC33*Xil GO TO L4 END* 
L2I BEGIN TEMPU3»Ii; GQ TO L4 END; 
L3: TEMPtb"-Ii; 



10630160 T 0046 
10630170 T 0048 



"*"!• 



START OF SEGMENT ********** 157 
10620530 T O266 



10 
11 1 
12 

13 

14 I 

15 

16 

17 I 

18 

19 

20 I 

21 

22 

23 ( 

24 

25 

26 { 

27 

28 

29 i 

30 

31 

32 ( 

33 

34 

35 i 

36 

37 

sa I 

39 

40 

4,4 

42 

43 

44 

45 



46 

47 

48 

49 

50 \ 

51 

52 

53* 

54 

55 

56 ' 

57, 



m 



10630180 T 0051 



1 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 

31 ~ 
32 



33 
34 
35 
36 



37 
38 
39 
40 



41 
42 



45 
46 
47 
18 



•9 

50 



51 
52 
53 
54 



55 
56 



L4: end; 



10630190 T 0053 



FILL ANS[*] WITH 2M'1'2' 3; 



10630200 T 0056 
STAKT HF SFGMgNT ********** 1 *>q 



159 T S 



5 LONG* NEXT 5EG 158 



CVN*5# 
PMQ»63; 



10630210 T 0058 
1Q630320 T OOSfl 



VERIFY 



10630230 T 0059 



END* 



10630240 T 0059 
158 T S 65 LONG, NEXT SEG 10 



PROCEDURE P64i COMMENT 5.3*5 SWITCH SCOPE* C. ZETHRAElS, H/23/62 ; 



10640010 T 0j74 



BEGIN LABEL LI, L2, L3; INTEGER II, 12, 13; BOOLEAN BU 



10640020 t 0i?4 
START OF SEGMENT ********** i60 



SWITCH SW1 «■ LI* L2* L3> 



10640030 T 0000 



SWITCH SW2 «. SWitm* IF Bl THEN SWi[l2J ELSE SWltUi; 
LABEL L4i 



10640040 T 0004 
1064004S T 0JI2XL 



II * 1/ 12 <- 2\ 13 ♦ 3i Bl * TRIE* 



1o640q5o T 0020 



BEGIN INTEGER II, 12, 13; BOOLEAN Bli 



n «■ a is «• 3; 13 «■ i; bi «- false; 



GO TO SW2CI1]; 



GO TO L3; 



1 06400*0 T 0023 
START OF SEGMENT ********** 161 

10640070 T 0000 

10640080 T 0003 

OOOOOQOO T 0005 



end; 



10640090 T 0007 



Lt» TEMPCU * 1* GO TO L4> 



L2* TEMPC1] 4- 2* GC TO L4; 



L3i TEMPI U ♦ 3* 

L4* FILL ANSC»3 WITH 0CT2J 



161 T 8 8 LONG, NEXT SfG 160 

10640100 T 0024 

10640U0 T 0026 
10640120 T 0029 
10640130 T 0031 



START BF SEGMENT ********** 162 



CVN ».., i; PKO » ; 64; VER 1 f Y ; 



E v i 



10640 150 



00 35 



i 

2 

3 

4 

5 

6 

7 

8 I 

9 
10 
11 I 
12 
13 
14 1 



162 f s 1 LONG, NEXT SEG 160 

10640140 T. 0033 



> 



13 
14 
15 
16 
17 
18 



19 
20 
21 
22 



23 
24 



26 

26 

27 

28 

29 

SO 

31 ~ 

32 

33 

34 

35 

36 

37™ 

38 



40 
41 
42 



»3 



45 
46 
47 



48 
49 

SO 
51 



52 
53 



54 
55 
56 
P7 



PROCEDURE P66J CUMM£Nl LaBEL LECLaRaTiON p 17 jAN 63; 
BEGIN 



INTEGER X1*I»Y; 



LABEL j,l*t2»L3*LA51»LAl»LA2#LBi; 



SWITCH SW1 «• LM>LA2J 



PROCEDURE PlCFPDi 
INTEGER fPl/ 



BEGIN 



LABEL LL1*LL2* 



INTEGER PQR^ 



pqr*c; 

LH: IF FPl * I THEN GO TO LL2J 



FOR PQR4-PQR+1 STEP 1 UNTIL 5 DO 



TEMPCPQR + t 3>P«1R*U 
FPl «• FPl + U 



GO TO LLi; 



LL2J 



end; 



LA2*« UOf 
PIC I )i 



xi* i; 



BEGIN 



LABEL LAi; 



GO TO SWltlJ* 

LA1I TEMPCUi «■ 5J1 



1 6 U t S 4 3 l 1\ G .. iM E X T S E G 
10660010 T 0l?4 

10660020 T 0l74 



10 



10660Q30 T 0i74 



START OF SEGMENT ********** 163 
10660040 t 0000 



10660050 T 0000 



10660060 f 0004 
10660070 t 0004 



10660080 J 0004 



10660090 T 0004 
START OF SEGMENT ********** 164 



10660100 T 0000 



10660i0l T 0000 
10661Q00 T 0000 



10661100 T 0002 



10661200 T 0006 
10661300 T 0Q09 



1066U00 T 0011 



10661500. T 0011 
10661600 T 0012 



164 T S 15 LONG. NEXT SEG 163 



10661700 T 0004 
10661800 T 0005 



10661900 t 0006 



10662000 T 0007 
10662100 T 0007 



10662200 T 0000 
10662300 T 0003 



ft 

2< 
3 
4 
5< 

6 
7 



START OF SEGMENT ********** 165 



9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

2S 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 i 

36 

37 

38 ! 

39 

40 

41* 

42 

43 

44 < 

45 

46 

47 • 

48 

49 

50< 

51 

52 

53 \ 

54 

55 

56 < 

57, 



• 



• 
• 



165 T S 



6 l_QNG» NEXT SEG 163 



GU TO LBi; 

LAI! TEMPU2] «- l«j; 



10660250 T 0008 
10660260 T 0008 



LB i : XI «■ Xf 



GO TO L3; 
L2» BEGIN 



INTEGER Yi; 



LABEL L4,L5*L6, L5T; 



GO TC L4; 



TEMPtiaj «■ ioo; 

L4f Yl «. 2; 



GO TO u6; 



Lt>» BEGIN 
LABEL L7; 



GO TO L7i 
TEMPC153 * 10i; 



L7i T£MP[7J «• 7 



end; 



GO TO LS1J 



L6* TEMPC6) *> Y1X3J 
GO TO ls; 



LST: end; 



go to last; 



L3l TE^PCBJ ♦ 8; 
GO TO L2; 



10660270 T 0010 



10660280 T 0011 
1Q66Q29Q T 0012 



IO66O3OO T 0013 



START OF SEGMENT ********** 166 
10660110 T 0000 



LASTITEKPC93 «■ 9; 



BEGIN 



10660320 T 0000 



10660330 T 0000 
10660.140 T 0002 



10660350 j 0003 



IO66O36O T 0004 
10660370 t 0005 



10660380 T 0000 
10660390 T 0000 



IO66O4OO T 0002 



10660410 T 0Q04 
JL 67 T S 6 LONG, NEXT S E G 166 



10660420 T 0006 



10660^30 T 0006 
10660a4Q T 0009 



1Q660450 f 0009 



166 yS 11 LONG* NExT SEG 163 
10660460 T 0014 



10660470 t 0Q14 



IO66O48O T 0016 
10660490 T 0017 



IO66O5OO T 0019 



rt 



START OF SEGMENT ********** \67 



47 < 

48 

49 

50 i 

51 

52 

53 \ 

54 

55 

56 

57. 



>r 



i 

2 
3 
4 
5 
6 
7 
8 
9 
10 



11 
12 
13 
14 



15 
16 
17 
18 



19 

20 



21 
22 



23 
24 
25 
26 



27 
28 
29 

30 

31 . 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 



41 
42 



45 
46 

47 • 
48 



49 
SO 



51 
52 



53 

54 



55 
56 



LABEL LCi; 



10660510 T 0019 



BEGIN 



START Of SEGMENT ********** 166 
10660520 T 0000 



LABEL LCi; 



10660530 T 0000 



GO to lci; 



START OF SEGMENT ********** 169 
10660500 T. 0000 



TEMP[163 ♦ 102; 



10660550 T 0000 



tCH TEMPC103 * 10 



END; 



10660560 T 0002 
10660570 T 0004 



169 T S 



6 LONG, NEXT SEG 168 



GO TO LCI J 

tempi i7i » mm 



10660S80 t 0001 
LOA6J15A0 T QQOl 



Lcl : TEMPCll] * 11 



10660600 T 0003 



end; 



10660610 T 0005 

16a rs 7 long, next seg 163 



FILL A|\S[*] WITH Qq10> "cT 2>0cT3* 0cT4#0cT5* 0cT6> OcT7* 



10660621 T 0021 



QCTiQ* OCT U» 0CT12* 0CTJ3* ■0CTj4> 0CTO# QCTO» OCTO, 



octo> qcto; 



START 8F SEGMENT ********** 17Q 

10660631 T 0022 

10660641 T 0022 



CVN 



17; 



170 IS 17 LONG, NEXT SEG f*T 
106-60650 T 0022 



PNO «■ 66; 



10660660 T 0023 



VERIFY 



END* 



10660670 T 0024 
10660680 T 0024 



163 j[S 30 LONG* NEXT »EG 10 



PROCEDURE P74; COMMENT USE OF INPUT FORMAT PHRASE A, DEC l~l \9i3i~ 
BEGIN . ' 



10740010 T 0i74 
10740020 T 0l74 



INTEGER D> 



10740030 T 0l74 



FORMAT IN FU( / 2A2# 2(2A2)» 1 ( W KASTUR M #2AS/ )> 



START OF SEGMENT ********** 171 
10740040 T 0000 



40 

41 

42 

43 

44 ■ 

45 

46 

47 

48 

49 

50 * 

51 

52 

53 I 

54 

55 

56< 

5Z 



START OF SEGMENT ********** 172 



h 



1 

2 
3 
4 
5 
6 
7 
8 
9 

10 
11 
12 
13 
14 

:5 



1(1(2<2A3)))j> 2A1» A5); 



10740050 T 0000 



L IST LI NA <FQR D»l STEP 1 UNTtL 15 DO TEMFCOJ); 



172 iS 22 LONG, NEXT SEG 171 
— „ in740n60 t onoo 



STREAM PROCEDURE F ORMAT AF IlLEC F ILLA ) / 



10740070 T 0010 



BEGIN 



local as, QRj q; 



10740080 T 0010 
10740090 T 0011 



LABEL Ll»L6i 



10740100 T 0011 



COMMENT MAKE 3 BUFFERS OF FILE FDUMMY PRESENT' 
Lit SI» FILLAJ SKIP 2 SB* COMM E NT POINT TO PR alT* 



10 7 «0U0 T 00*1 
10740120 T 0011 



16 
17 
18 
19 
20 
21 



22 
23 
24 
25 



26 
27 
28 
29 

30 



if sb Then begin skip 48 sb; 



10740130 T 0011 



IF SB THEN BEGIN SKIP 48 SB; 

if Sfl then go to L6; go to li 



10740140 T 0012 
10740i50 T 0014 



end; go to ei 



10740160 T 0015 



end; go to li ; 
comment files a*e now verified as present* 



10740170 T 0015 
10740180 T 0015 



L61 si* filla; di ♦ LOC q; DS «• 3 wos; 



10740190 T 0015 



31 
32 
33 
34 
35 
36 



oi*q; comment fill buffer 1; 

PS+40 LIT »B"} 



10740200 T OOH 
10740210 T 0017 



DS*40 LIT "c"; 



10740g20 T 0022 



37 

38 
39 
40 
41 
42 
43 



45 
46 
47 
48 



49 
50 



51 
52 
53 
54 



55 
56 



DI «■ QR; COMMENT FILL BUFFER 2> 

DS*28 LlT«AABBlAA2AAACXXXXXXA11232AAA5 n ; 



10740230 T 0027 
10740240 T 0027 



DI* QS; COMMENT FILL BUFFER 3; 



10740250 T 0031 



05*19 LIT "12312322222**10*3'+"; 



end; 



10740 2 60 T 0031 
10740270 T 0034 



READ(FDUMMY); comment open file fdummy; 



10740280 T 0034 



FORMAT AF I LLEC FDUMMY); 
REAOCFQUMMY'FIA'LINA); 



10740290 T 0039 
10740300 T 0040 



FILL ANS[*j WlTh 0CT2121* QCT2222, QCT3121, 0CT2l02» 0CT2121, 



10740310 T 0044 



QCT2123* 0CT21010102Q3* OCT0221212105* 



START OF SEGMENT ********** 173 
10740320 t 0Qfl6 



OCT010203, UCT0102Q3* 0CT02O2Q2* 0CT17q2i^ 



10 7 ^033q y OO 4 * 



39 

40 

4, ( 

42 

43 

44 ( 

45 

46 

47 

48 

49 

BO 4 

51 

52 

53 ( 

54 

55 

56 ( 

57 



QCU7, UCT1 * OCT0053036120; 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



13 
14 
IS 
16 



17 
18 
19 
20 
21 
22 
23 
24 
25 
26 



6 

o 
o 
Q 

*S 
to 



27 
28 
29 
30 



31 
32 



33 
34 
35 
J6 



37 
38 



39 
40 
41 
42 
43 



• 
• 
• 



45 
46 
47 
48 



50 
51 
52 
53 
54 
55 
56 
B7 



10740335 T 0046 



CVN+1SJ 



173 T S 15 LONG, NExT SEG 171 
107/10340 T 0046 



PNO * 74; 



10740350 T 0047 



VERIFY 



end; 



10740360 T 0047 
10740370 T 0Q4 7 



171 T S 51 LONG, NEXT S£G 10 



PROCEDURE P75; COMMENT INPUT FORMAT PhRASE 0, KM, DEC 10 l963~; 
BEGIN 



10750010 T 0i74 
1Q7 5 0Q 3Q T 0^74 



INTEGER 



d; 



10750030 T 0i74 



FORMAT IN FORMD ( Q, 13, 20, 16, 1(1(0))* 



START OF SEGMENT ********** \f o, 
2C KAST UR")/ le/SOoOQ T OOO O 



START OF SEGMENT ********** 175 



1C3D* 13/), 17, 2D); 



LIST LO (FOR o* 1 STEP 1 UNTIL 4 DO TEMpCOJ); 



STREAM PROCEDURE FORMATFlLLD (FID); 

BEGIN 

LOCAL OS, QR, q; 



10750050 t 0000 

.17 5 T S 23 LONG. NExT SEG Mix 

10750060 T 0000 

10750070 T 0010 
10750080 T 0010 



10750090 T 0011 



LABEL LI, 16; 

COMMENT MAKE 3 BUFFERS OF FILE FDUMMY PRESENT 



10750100 T 0011 
10750110 T 0011 



li: si* fid; skip 2 sb; comment point to pr bit; 



10750120 T 0011 



IF SB THEN BEGIN SKIP 48 SB; 
IF SB THEN BEGIN SKIP 48 SB; 



10750130 T 0011 
10750140 T 0012 



if Sb Then go to l6; go to li 



10750150 T 0014 



END; 60 TO LI 

end; go to ti ; 



10750160 T SOTS" 
10750170 T 0015 



COMMENT FILES ARE NOW VERIFIED AS PKEDSEnT; 



10750180 T 0015 



u6i si* fio; oi*lqc a; os* 3 wds; 
oi» q; comment fill buffer 1; 



10750190 t 0015 
10750200 T 0016 



DS* 33 lIT "ABCDEFG123A6CDEFGHIJKLMNQP123456"; 



1 
2 

3 
4 
5 

6 
7 

8 ' 
9 

10 

11 I 

12 

13 

14 I 

15 

16 

17 I 

18 

19 

20 I 

21 

22 

23 < 

24 

25 

26 ' 

27 

28 

29 ( 

30 

31 

32 i 

33 

34 

35 i 

36 

37 

38 ( 

39 

40 

41 4 

42 



43 

44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



• 
11 



10750210 t 0017 



rr 

2 
3 



OS* 10 LIT "PGRSTUVWXY"; 



10750220 T 0021 



DS* 37 LIT "X M ; 

oi<-qr; comment fill second buffer; 



10750225 T 0C23 
10750230 T 0028 



DS«- 27 LIT "123456781234567812345678000"; 



10750240 T 0028 



D3*10 LIT "A"; 
Ol»QSJ COMMENT FILL BUFFER 3i 



10750245 t 0032 
1 0750 250 T OJLLL 



10 

11 

12 



DS«- 23 LIT "1234567AAAAAAAA1A2B3C04"; 



10750260 T 0033 



13 
14 

(15 



end; 
read (foummy); comment make file fdummy present) 



10750270 T 0037 
in7S0?8Q T QQ37 



16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 



FQRMATFILLD CFDUMMY); COMMENT FILL BUFFERS WITH InFO* 



10750290 T 0042 



READ CFDUMMY,F0RMD,LD3J 

FILL ANS [»] HiTh 231* 234561* OOP* 1234567; 



10750300 T 0C43 
10750110 T 0047 



START OF SEGMENT ********** 176 



CVN* i\i 



176 yS 4 LONG, NEXT 5EG 174 
10750320 T 0049 



PNO «■ 75; 



10750330 T 0050 



VERIFY 



31 
32 
33 



end; 



10750340 T 0050 
10750350 T 0050 



34 

35 

36 

37 " 

38 

39 

40 

41 

42 



174 jS 54 LONG, NEXT SEG 



10 



PROCEDURE P76; COMMENT FORMAT PHASE E EK 
BEGIN 



2 JAN 63; 



10760010 T 0l74 
10760020 T 0174 



ARRAY AtOJU* BCO:i], CCO : 2 J; 



10760030 T 0j74 



43 
44 
45 
46 
47 
48 



REAL X,Y,Z*K,H,X1,YI*Y2*Y3; 



INTEGER l> 



START 8F SEGMENT ********** 177 

10760040 T 0005 

10760050 T 0005 



49 

50 
51 



FORMAT IN FQRMKE8.1, 2E8.1* 2(E8» l#2E10,3 ) >; 



10^600^0 T 0005 
S TART 8F SEGMENT »»***«*«»» 178 



52 
53 
54 



178 t s 



9 LONG, NEXT S£G 177 



FORMAT IN F0RM2<Ell.4,3El3,6,El2 f 5,Ei0.3,E8.n; 



10760080 T 0005 
START 8F SEGMENT »»*»«»*»♦» 179 



55 

56 



55 
56 I 



179 jS 



8 LONG, NEXT SEG 177 



>r 



10 

11 



12 
13 



14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 



36 
37 " 



38 
39 

40 
41 
42 
«3 



45 
46 
47 
W 
49 
SO 
51 
52 
53 
54 
55 



LIST LU(X#r,Z,R,FOR 1*0 STEP 1 UNTIL I DO ACIJ* H# F QK i+q 



STEP 1 UNTIL 1 DO BCIJ); 
LIST L2 ( Xb FOR I + STEP 1 UNTIL 2 00 CCI3> Y 1 » Y2» Y3)J 



STREAM PROCEDURE STPKF1* X); 



VALUE X; 



BEGIN 



LABEL A» B* C> 



ui*fi; si«-loc x; si«-si+7;if sc* w a h then go t o "a f 

IF SC«"B" THEN GO TO B; GO TO Ci 



A* 



os*38 lit "-0.1P+0H o.ee+oi 0,50+00-0,10 03 0,645"; 



03*38 LIT "* 02+0. 165* 02-0, 10*04-0 , 1730+07-0 ,200"; 

os + 4 lit "g 04 w ; go to c; 



B ! 



ljS + 34 LIT 



•-0,25250+02 0,8885200+03 0,735125*"; 



0**38 LIT " 03 0, 136421P+06 0, 16250? 02**0 ,6250+0 j» ; 
0S»8 LTT " O.m m*i 



c» end; 



STP1CF0UMMY(0)# W A W ); 
REAP CF0UMWY,FQRW1«LI1); 



stpi(fdummy(q),"b"); 



HEA0fF0UMMY»FURM 2 ,L2); 



TEMPtll * Xi 



TEMPC2] «• Y/ 



TEMPC33 * O 
TEMPC43 + RJ 



TEMPC73 «- W> 



FOR I + STEP 1 UNTIL 1 00 
BEGIN 



'TEMP CI +5] * A CI") J 



TEMPd + 83 > BCI3; 



end; 



TEMPC10) * xi; 



10760090 T 0005 



10760100 T 0018 
10760110 T 0025 



10760H5 T 0039 



10760H6 T 0039 
10760120 T 0039 



10760125 T. 0040 



10760130 T 0040 
10760135 T 0041 



10760140 T 0042 



10760150 T °048 
1 Q 7 60155 T 00 53 



I0760i60 T 0054 



10760^5 T 0058 
1 07601 67 T 0063 



10760180 T 0064 



10760190 T 0065 
10760200 T 0070 



10760210 T 0073 



10760215 T 0077 
10760220 T 0081 



10760230 T 0083 



10760240 T 0085 
10760250 T 0086 



10760260 T 0088 



10760270 T 0090 
1076028Q T 0091 



10760290 T 0091 



10760300.T 0093 
10760310 T 0096 



10760320 T 0098 



56 ' 
57 



• • 



>r 



1 

2 
3 
4 
5 
6 
I 
8 
9 
10 
11 
12 



FOR I «- STEP 1 UNTIL 2 DC TEMPCI + 113 ♦ CilJi 



10760330 T OlOO 



TEMPCHJ «■ Yli 
TEMPC153 » Y2; 



1076Q340 T 0i05 
1 07603 5Q T 0107 



TE . MPT 1 63 + Y3; 



1 076 Q36Q T QjQ9 



FILL ANSU3 WITH QCT30546 11320000000* OCT 113 1000000000000, 



10?6037l T Oill 



OCT 10 1000 0000000004 , QCT200000000000Q 144, 



START OF SEGMENT ********** 180 
10760381 T 0112 



13 

14 



OCT 112 1004000000000* OCT 1 132040000000000, 



107603*1 T 0U2 



Oct 3222476 i326 1070 7, OcT306646 2 ?2UOOOOOO, 
OCT 3 1137 20000000000 , OCT 30 1 0000000000 3 12, 



10760401 T 1 12 
10760421 t 0U2 



16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 



OCT 111 1570412172703* OcTjOlOOOOOOOO 1337 1# 



10760431 T 0112 



OCT 107 4 12 3450000000* OCT 1 1 32020000000000 , 
OCT 3 146 20000 00 0000 0* OCT 1 1 4 1 000000000000; 



10 7 60 441 T l 12 
10760451 T 0112 



180 T S 16 LONG, NEXT S£G 177 



CVN «• 16; 



PhO ♦• 76; 



10760460 t °U2 
1 Q760470 T. O j 1 3 



31 
32 
33 



VERIFY 



10760080 T 01U 



34 

35 

36 

37 ~ 

38 

39 



EKDJ 



10760490 T 0ll4 
177 jS 122 LONG, NEXT SEG 10 



PROCEDURE P78; COMMENT INPUT FORMAT PHRASE I, KM OCT 23 63J 



10780010 T 0174 



40 
41 
(2 



BEGIN 



INTEGER O; 



10780020 T 0i74 
10780Q30 T 0174 



43 

44 
46 



START OF SEGMENT ********** 181 



16 
47 
18 



FORMAT IN FORM! ( / 1 ( 2 1 1 J , 1 ( 2 12 , 12 ) * 212, 2C2I2, 2(2(1(212)))}/ 10780040 T 0000 

__^ _^ START OF SEGMENT ********** 182 



50 
51 
52 
53 
54 



212* 16, 2(2(2(11)))); 



10780050 T 0000 



LIST 



LI (FAR Q * 1 STEP 1 UNTIL 38 00 TEMP[OJ)j 



182 T S 32 LONG, NEXT SEG 181 
— — 1Q 7J 8 0060 T 0404) 



55 

56 



STREAM IROCEDURE FORMATK Fl)J 



10780070 T 0010 



BEGIN 



10780080 T 0010 



• • 



>r 



i 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 



19 

20- 

21 

22 

23 

24 

25 

26 

27 

28 

29 

3<>_ 

31 



32 
33 



34 
35 



36 

37 " 



38 

39 



40 
41 
♦2 

43 " 



45 
46 
47 
48 



49 
SO 



51 
52 
S3 
54 



55 
56 



LOCAL QS*QH* Q; 



10780090 T OOH 



CUMMENT MAKE THE 3 BUFFERS OF FDUMMY PRESENT; 



LABEL LI* 16* 



10780UQ T 0011 
10760120 T 0011 



Lli SI'Fi; SKIP 2 SB; COMMENT POINT TO THE PR BIT* 



1Q78Q130 T OOH 



IF SB THEN BEGIN SKIP 48 SB; 
I F SB THEN BEGIN SKIP 48 3b; 



10780140 T 0011 
10790 1 50 T 0012 



IF SB THEN GO TO L6i GO TU Li; 



10780i60 T OOH 



end; go to li; 
end; go to li; 



10780170 T OOIS 

l oy g oie o t 0015 



L6: SUFI* DULQC'QJ DS* 3 WDS; 



10780185 T 0015 



01* QJ 

03*40 LIT "A"i 



10780190 J 0016 
10780200 T 0017 



OS«.<|0 LIT m a"; 
di «-qr; 



10780210 T 0022 
10780?20 T 0027 



OS *36 LIT "l*42»3 + 24.3*4-5 + 6+3+44546535455566l6 2M ' 
0*«-l6 LIT "6364656665644647"; Q3«- 28 LIT "0"; 



1078023Q T 0027 



di+qs; 



10780 2 40 T 0032 
10780250 T 0036 



03 * 18 LIT "1516+12345213766-5"; 



10780260 T 0038 



eno; 



READ CFPUMmUnQ]); COMMENT FILL BUFFER BlANK CARDS ; 



10780270 T 0041 
10760280 T 0Q41 



FORMATlCFDuMMY); COMMENT FILL BUFFERS WITH INFORMATION' 



10780290 T 0046 



READ (FDUMMY, FORMi* LI)} COMMENT EDIT THE BUFFERS; 

FILL AIMS C * 3 WITH 1, 0, 2* -3* 2* 3* "4* -5, 6 * 3* 4* 45* «6* 



10780300 T 0047 
10780310 T 0051 



53* 54' 55' 56' 61' 02' 63* Oi\> 653* 06' 
65* 64* 46* 47* 15* 16, 12345, 2' 1* 3* 



START OF SEGMENT *#*♦****** 183 
IO/8U32O T UC53 



10780330 j 0053 



7* 6* 6* 0* 5; 



10780335 T 0053 



cvn «■ 38; 



183 T S 36 LONG* NEXT SEG 181 
10780340 T 0C53 



PNO ♦ 78i 



10780350 T 0054 



VERIFY 



10780360 T 0054 






end; 



>r 



E 

o 
Q 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 

I " 
12 

13 

I 14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 



36 
37 " 



, 38 
39 
40 
41 
42 

«3~ 
44 
45 
46 
»7 
•8 
49 
JO 
51 
52 
S3 
54 
55 
56 
57 



1078Q37C T 0054 



procedure pyg; comment input phrase L» JAN 9, I96<t; 



181 iS 58 LONG, NEXT S£G 10 
10790010 T 0174 



BEGIN 



10790020 T 0174 



INTEGER Oi 



FORMAT IN FQRMATlQGICA|_<2Cl5>,l15/ 2C2L5, "KASTUR" L5,l7, 



10790030 t Ol74| 

START OF SEGMfNT ********** 184 

107S0Q40 T OQOO 



i(K2i5n»/n; 



START OF SEGMENT ********** 185 
10790050 T 0J10J3 



185 r s 20 LONG, NExT S£G 184 



LIST LOGICAL (FOR D «■ 1 STEP l UNTIL 15 00 TEMpToT)T 

STREAM PROCEDURE FILLLOG I C t FLOfil i 

BEGIN 



LOCAL QS,QR,U 
LABEL LI, L6; 



COMMENT MAKE 3 BUFFERS OF FILE FDUMMY PRESENT; 

Ll» Sl4.FLQG> SKIP 2 $8; COMMENT POINT To THE Pfi Bit; 
1J SB THEN BEGIN SKIP 48 SB; 



IF SB THEN BEGIN SKIP 48 SB; 



IF SB THEN GO TO Ldi GO TO Ll'* 



end; go to li 



enc; go to li; 



COMMENT FILES ARE VERIFIED AS PRESENT; 

L6» sj » flog; duloc 0; ps «• 3 wps; 
di«-q; comment fill buffer i; 



0S*25 LIT m TRUEFALSETftUE FALSE TRUE"; 

qi»qr; comment fill buffer 2; 



0S*36 LIT"TTTTT11111KASTUR TRUEO 1234FALSE TRUE"; 



UI*gs; COMMENT FILL SUFFER 3J 



0S»39 LIT* TRXEFALSXKASTUR TRXX TRUE TrUe1234»123 w ; 



end; 



10790060 T 0000 
10790n7fi T 0010 



10790Q80 T 0010 



10790090 T 0011 
10790100 T 0011 



10790H0 T 0011 



10790120 T 0011 
10790130 T 0011 



10790140 T 0012 



10790150 T 0014 
10790160 T 0015 



10790170 t 0015 



10790 l8 Of 0015 
10790190 t 0015 



10790200 j 0016 



10790210 T 0017 
10790220 T 0020 



10790230 t 0020 



10790240 T 0025 
10790250 T 0023 



1 
2 
3 
4 
5 

6 
7 
8 
9 
10 
11 i 
12 
13 
14 I 
15 
16 
17 ( 
18 
19 
20 
21 
22 
23 
24 
25 
26 ( 
27 
28 
29 ( 
30 
31 

32 ( 
33 
34 
35 ( 
36 
37 
38 ( 
39 
40 

41 < 
42 
43 

44 I 
45 
46 

47 I 
48 
49 

50 I 
51 
52 

53 I 
54 
55 
561 



i 






10790?6Q t 0Q31 



READ (FDUMMY); COMMENT OPEN FILE FOUMMY; 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



13 

14 



15 
16 
17 
IS 

19 
20 

21 



22 
23 
24 
25 



26 
27 
28 
29 
30 
31 
32 
33 



34 
35 



36 

37 " 



38 
39 



40 
41 
42 
43 



45 
46 
47 
48 

•9 
SO 
51 
52 
53 
54 
55 
56 
P7 



FILUOGIC (FOUMMY); 

READ C FOUMMYjFQRMATLOQICAL* LOGICAL); 



FILL AN5[*] KITH 1 * 0, \> 0, 0* 1*0* 0* 0» 0» 0* 0*0, 1* o; 



CVN ♦ 15; 



PN0*79; 
VERIFY 



end; 



PROCEDURE P80; COMMENT USE OF FQR M AT INPUT PHRASE QJ 



BEGIN 



INTEGER O; 



FORMAT IN FUi C 0, 20* 2< 1 C ) } / "KASTURV 1(1(2(20)))); 



LIST L I (FOR 0*1 STEP 1 UnTil 9 DO TEMPCD]); 
STREAM PROCEDURE FORMATUFlLL <F0); — 



BEGIN 



local qs#qr#q; 



LABEL LI, L6; 



COMMENT MAKE 3 BUFFERS Op FILE PRESENT; 



10790270 T 0031 



10790280 T 0036 
10790290 T 0037 



10790300 T 0Q41 



START OF SEGMENT ********** 186 
-1Q6 T S 15 1 QN6, NEXT Sg G 184 



10790310 T °043 



10790320 f 0044 
10790330 T 0Q44 



10790340 T 0044 



184 T S 48 LONG, NEXT S£G 10 
10800010 T 0174 



10800020 T Oi74 



10800030 T 0174 
START QF SEGMFNT ********** 187 

10800040 T 0000 



10800080 T 0011 



10800090 T OOU 
10800100 T 0011 



lii si*fo; SKIP 2 sa; comment point To THE PR BIT; 

IF S8 THEN BEGIN SKIP 48 SB; 
IF SB THEN BEGIN SKIP 48 58; 



10800110 T 0011 



10800120 T OOU 
10800130 T 0012 



IF SB THEN GO TO L6; GO TO LU 



10800140 T OOH 



END* GO TO Lt; 
END; GO TO LU 



10800150 T 0015 
10800160 J 0015 



COMMENT FILES ARE NO* VERIFIED AS PRESENT; 



is 
2 I 
3 
4 
5 ( 

6 

7 

8 ( 

B 

10 

11 < 

12 

13 

14 4 

15 

16 

,7 4 

18 

19 

20 4 

21 

22 

23 4 

24 

25 

26 4 

27 

28 

29 41 

30 



START OF SEGMENT ********** 188 
188 T S 20 LONG, NEXT SgG 187 
108C0050 T 0000 

I"0800060~T Q0T6 
10800070 T 0010 



31 

32' 

33 

34 

35 ( 

36 

37 

38 i 

39 

40 

4, I 

42 



45 
46 



47 

48 

49 

50 ' 

51 

52 

53* 

54 

55 

56 I 



57J 



10800170 j 0015 



h 



i_6» si«-fo; ui*uoc a; ds<- 3 wds; 



IO8OO18O T 0015 



1 

2 
3 
4 
5 
6 
7 
B 
9 
10 

11 

12 



DI*QI COMMENT FILL BUFFER l; 

DS»32 LIT "00012345000234560006789000078901"; 



10800190 T 0016 
10800?00 T 0017 



0S«-8 LIT "00023456"; 



10800^10 T 0021 



duqr; comment fill buffeR2J 

OS + 40 LIT "A w ; 



10800230 T 0022 
1 Q8Q024Q J 0Q22 



DS*40 LIT "A"; 



10800250 j 0028 



13 

14 



OI*QS; COMMENT FILL BUFFER 3; 

0S»32 LIT "00011111000222220003333300044444"; 



10800260 T 0033 
I0800g70 T 00 33 



16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 



end; 



10800290 t 0037 



REAO (FOUHMY); 

FQRMATUFILL (FOUMMTjj COMMENT FILL BUFFERS WITH IfrFQi 



10800295 T 0038 
10800300 T 0Q42 



REAO CFOgMMY,FUl*LI ); 



10800310 T 0043 



FILL ANSC*3 WITH OCTOOOOOOO 102030405* 



10800320 T 0047 
ST ART OF SEGMFNT ********** 189 



28 
29 
30 



OCT 00000002 3 04 05Q6* OCT 000000060? 101 1 00» 



10800325 y 00*9 



31 
32 
33 
34 
35 
36 



OCT00000007 10 110001* QCT000QOQ02C3Q4O506, 
OCTOOOOOOO 10 10 10 101* QCT0000000202020202, 



10800327 T 0049 
10800330 T 0049 



OCT 000 000 30 30 30 30 3* OCTOOOOOOO 40 40 4040 4; 



10800335 T 0049 



37 

38 
39 



CVN«-9; 



189 T S 9 LONG, NEXT SEG 187 
10800340 T 0049 



40 
41 
42 



PNQ+8Q' 



10800350 T 0050 



43 



VERIFY 



END* 



10800360 T 0050 
10800370 T 0050 



46 
47 
48 



187 t s 5 4 LONG, NExT SEG 



10 



»9 

50 



PROCEDURE P81; COMMENT FORMAT IN PHRASE X* JAN 1/ 1963* KMtl 
BEGIN 



10810010 T 0174 
10810020 T OlM 



52 
S3 



S4 



FORMAT IN FORM! C1CA6), 1X6* 14* XI* X1*E9.2, 3(1X1), 



10810040 T 0l74 



55 

56 



START OF SEGMENT ********** J90 
START QF SEGMENT ********** 191 



l(l(F4,i>>> 2CXl)# F4.2* L5# 2 C 1 ( 1 ( X 1 ) ) ) > L * > * 



10810050 T 0000 



IP 



vn« 



h 



9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 



20 
21 



22 
23 
24 
2E 
26 
27 



28 

29 



90 

31 J 

32 

33 



34 

35 



36 

37 " 



38 
39 



40 
41 
«2 
43 



45 
46 
47 
18 



49 
50 



51 
52 
53 
54 



191 T S 32 LONG, NEXT 5EG 190 



COMMENT CHANGE INPUT INFORMATION TO REFLECT CHANGE OF U WT5 
CHANGE HAS MADE BECAUSE L^ IS NOT ACCEPTABLE Tq COMPILER 



10810053 T 0000 
10810Q55 T 0000 



NOTE MADE OF THIS; 



10810057 T 0000 



INTEGER I J 

STREAM PROCEDURE TRANST03UFF (STRT?; 



10810060 T 0000 
10810070 T 0000 



BEGJIM 



10810080 T 0000 



oi *• strt; 

OS » 32 LIT *ABCDEFGH**SSl4l6Si+0 t 95»+02SSS+2 w ; 
OS'* 24 LIT ".3$$+. 25 TRUESSFALSE " 



10810090 T 0001 

toeioioo T 0001 



10810U0 T 0005 



END '» 
TRANSTQBUFFCFDUMMYCQ))J 



10810120 T 0008 
1 08101 , 30 T 0_OJL9_ 



REAOCFDUMMY* F0RM1» FOR I «• 1 STEP 1 UnTIl 8 DO TEMP(M); 



COMMENT **** VALUE QF TEMP 4 CHANGED TO MATCH THE CONVERT ROUTINE 
FRUM OcTll42234l63ia63l4 TO C T 1 14223l463l463i4 i_ 



10810140 t 0012 
10810143 T OpS" 
I08l0i47 T 0025 



FILL ANSC*] WiTh 0CT0000212223242526, QCT2610, QCT137, 



108i0i50 T 0025 



OCT 11422 3 1463 146315* OCT 1 152000000000000* 
0CT1* qcto; 



10810170 T 0027 



192 !§ 



7 LONG, NEXT SEG 190 



CVN«-7; 
PN0*8i; 



10810180 T 0027 
10810190 T 0028 



VERIFY 



10810200 T 0029 



end; 



PROCEDURE P9li COMMENT FQRwARU REFERENCE DECLARATION* KM, NOV 28 62*> 



10910010 T 0l?« 



BEGIN 



LABEL L1>L2#L3#L4*L5,L6,L?; 



10910020 T 0174 
10910Q25 T 0l74 



INTEGER J*K; 



10910030 T 0000 



V) 

2< 

3 
4 
5< 

6 
7 
8< 

9 
10 

i.< 



START OF SEGMENT ********** 192 
IO81O16O T 0027 



10810210 T 0029 
19Q T S 32 LONG, NEXT S E G 10 



START 8F SEGMENT ********** 193 



# • 



1 

(J 
o 
Q 

q 



3 

4 

> 5 

6 

7 

> 8 
9 

10 

I " 
12 

13 

\ M.. 

15 

16 
) 17 

18 

19 

20 

21 

22 

23 

24 

25 

28 

27 

28 

29 

30 

31 "" 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 



45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
B7 



prqceouhe for* cfo«i*fur2); integer fori* for2; fqr w ard; 



109100^0 j 0000 



INTEGER PROCEDURE FOWO (FHQl)J 
INTEGER FHPi; 



13EGIN 



INTEGER I ; 



l*o; if FWDi»i Then forwcfwdimj; 



FiWD* FMDl ■*'■ 11 

end; ___ 



PROCEDURE F0RH<FQRi»FQH2)J 
INTEGER FORI' F0R2; 



BEGIN 



FORI* FQR2 +3 ; F0R2 + FOwDCFQRl); 



end; 



SWITCH FOVUHD FQRhARO' 



SWITCH FOHvU «• Ll# L2* 1-OVuRQCj-J* l3i 



SWITCH FOVuRp «■ L4*L5 > FQRVQ[K3» FORVPCKJj 
BOOLEAN BOUt ; 



BOOL* T«UEi 



FORweg.K); TEHPciJ «• Ji TEMPt23 «-k; 



J*3J K*1J 

GO TQ IF BOOL THEN FORVUC33 ELSE FQVURDIKJj 

LU TEMPC33*5 ; GO TO Ui 



L«» TEMPC3J «-lO; 



L7» J»4f rt*2; GO TQ IF FALSE THEN L5 ELSE F0RVDtK*j3; 



L2I TEMPC4J «■ *♦; GO TO L3# 



L5« TElPUl *44J 



FILL ANSC* J WITH 0CT3# UCT4* 0CT5. QCT4J 



109100S0 T 0000 
10910060 T 0000 



10910070 T 0000 



10910080 T 0000 
START OF SEGMrNT ********** l»4 



10910Q90 T 0000 



10910100 T 0003 
10910^0 T OnOfl 



194 T S 



7 LONG, NEXT S^G 193 



10910120 T 0000 
109l0i30 T 0000 



10910H0 T 0000 



10910150 T OQOO 
10910160 T 0003 



10910170 T 0003 



10910180 T 0003 
10910190 T 0019 



109l0i95 T 0035 



10910197 T 0035 
10910200 T 0036 



10910210 t 0037 



10910220 T 0042 
1Q910230 T 0043 



10910240 T 0048 



10910250 T 0050 
10910260 T 0052 



10910270 T 0059 



10910280 T 0062 
10910290 T 0064 



2 
3 

4 
5 

6 
7 

8 

9 

10 

"I 

12 

13 

14 | 

15 

16 

'7 | 

18 

19 

20 ( 

21 

22 

23 { 

24 

26 

26 ( 

27 

28 

29 ( 

30 

31 

32 (| 

33 

34 

35 | 

36 

37 

38 | 

39 

40 

4,| 
42 
• 43 
44 f 
45 
46 

47 4 
48 
49 

50 % 
51 
52 

S3 I 
54 
55 
561 



i 
• 



10910300 t 0065 



n 

2 



START OF SEGMENT ********** 19b 



CVN »' 4 ; 



195 T 8 4 LONG* NEXT SEG 193 
1Q91 Q 310 T Q Q 6 6 



4 
5 
6 
7 
B 
9 
10 
11 
12 



pno *■ 9i; 



10910320 T 0067 



13 
14 
15 



VERIFY 

enq; 



10910330 T 0068 
10910340 T 0068 



193 IS 75 LONG, NEXT SEG 



10 



MOceOURE P94; COMMENT PROCEDURE HEADING 
BEGIN 



EK 2Q NOV 62; 



10940010 T 0174 
10940020 T 0174 



16 
17 
IS 



INTEGER I»J*K; 



10940030 T 0174 



19 

20 
21 



ARRAY A[Q«23; 



START OF SEGMENT ********** 196 
10940040 T QOQO ■_ 



22 
23 
24 
26 
26 
27 
28 
29 
JO 



INTEGER ARRAY IA[Q»53J 



10940050 T 0001 



ALPHA ARRAY AA[Qt23; 
BOOLEAN ARRAY BACQUli 



10940060 T 0003 
10940070 T 0005 



BOOLEAN T; 



10940080 T 0007 



31 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 



REAL X; 

PRQCEOugE P1(FF1,FP2)»FP2"CFP3,FP4,FP5,FF6)"FP6 « ( F P7 ) ; 



10940090 T 0007 
10940100 t °0° 7 



VALUE FPj,FP2; 



10940H0 T 0007 



INTEGER FPi; 
REAL FP2; 



10940120 T 0007 
10940130 T 0007 



ARRAY FP3[0J; 



10940140 T 0007 



INTEGER ARRAY FP4C*3; 
ALPHA ARRAY FF5[03i 



10940150 T 0007 
10940160 T 0007 



46 
47 
48 



BOOLEAN ARRAY FP6[ti]J 



10940170 T 0007 



49 

50 



BOOLEAN FP7; 
BEGIN 



10940180 T 0007 
10940190 t 0007 



52 
53 



TEMPCU «• FPi; 



10940200 T 0007 



55 

56 



TEMPC23 * FP2; 

FP3C03 * FP3C13 ♦ FP3C2J *• 31 



10940210 T 0Q09 
10940220 T 0011 



FP4L43 * 4; 



10940230 T 0014 



n 

2 
3 
4 
5 
6 
7 
8 



FP510] «- "ONE"; 



10940240 T 0016 



FP5C13 * "ThO"J 

FP5t2] » "threes; 



10940250 T 0017 
1 Q940 ? 6 Q t 0Q19 



FP6C0J * FP6C13 * TRUE* 



109402/0 T 0020 



FP7 * false; 



ENQj 



10940280 T 0022 
1Q940990 T 0Q23 



T* 



11 

12 



13 

14 
IS 



16 
17 
18 



19 

20 



21 
22 
23 
24 
25 

27 



o 
Q 



28 
29 



30 

31 " 



• 
• 



32 

33 
34 
35 



36 

37* 



38 
39 



40 
41 



42 

43 ' 

44 

45 

46 

47 

«8 



«9 
50 



51 
52 



53 

54 



55 
56 



*L 



I «■ i; 



10940300 T 0Q27 



:'v,x * 100* ■ 

COMMENT CLUGE CARD REMOVE LATER ********* 



AC03 ♦ AtOJ ; 



10940310 T 0027 
JQ94Q315 T 0Q28 



COMMENT CLUGE CA&D REMOVE LATE* ********; IA[03 * IA[Q3 > 



10940315 "T 0030 



COMMENT CLUGE CAfJD REMOVE LATER ********; AACO] * AAToI '> 
COMMENT CLUGE CARD REMQyE LATER ********* BACp] » BACp] * 



COMMENT THE AfiOVE CA«DS WERE INCLUDED TO GET AROUND PRESENCE BIT 



10940315 T 0031 
1094Q315 t 0033 



10940316 T 0034 



WHEN AN ARRAY WaS PASSED AS AN ACTUAL PARAMETER TO A PROCEDURE; 
PHI»X, AMA,AA*8A,T>; 



10940317 T 0034 
1094Q320 T 0034 



TEMPC31 «• AC 13 J 



1 0940 330 T 0038 



TEMPC43 «• IAC43; 



10940340 T 0040 



TEMP[5] «■ AA[n; 

IF BAC03 THEN TEMPC63 ♦ n TRU M ; 



10940350 J 0042 
10940360 T 0044 



IF T THEN TEMPC73 «• "ERR"; 
TEMPC63 «■ "F«; 



1094037Q T 0047 



FILL ANS[»3 WITH OCM, QCU44, 0CT3# 0CT4, 0CT636646, 



10940380 T 0050 
10940390 T 0051 



START OF SEGMENT ********** 197 



0CT635i64* OCTO* 0CT26; 



10940400 T 0053 
197 T 8 6 LONG, NEXT S£G 196 



cvn * s; 



10940410 T 0053 



PNO ♦ 94; 
VERIFY 



10940420 T 0054 
1094Q430 T 0055 



ENDi 



10940440 T 0095 



196 T S 64 LONG* NEXT SEG 10 



40 

41 

42 

43 

44 4 

45 

46 

47 ' 

48 

49 

50 i 

51 

52 

53 I 

54 

55 

58* 

57, 



m • 



h- 



9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 



21 
22 



23 
24 
25 
26 
27 
28 



29 
30 



31 
32 



33 
34 

35 
36 



37 
38 
39 
40 
41 
42 
13 



45 
46 
47 
48 



♦9 
50 
51 
52 
S3 



54 

55 



56 



procedure: P95; COMMENT 5.12.3.1 streak value part. c. zethraeus, 12/3; 



10950010 T 0l?4 



BEGIN real stream procedure getvalcv); Value v; 



10950020 T 0174 
START 8F SEGMENT ********** 198 



BEGIN SU LOc Vi D'l «• LUC GETVAL1 DS *■ 1 WDS END1 



10950030 T 0000 



REAL A#B#C; BoOtEAN 0, E* F} ARRAY MATRIX CH33; INTEGER I } 
REAL PROCEDURE IDENTITYCX)J REAL X 1 IDENTITY » Xl 



10950040 T 0001 
1q950o5q t 0003 



BOOLEAN PROCEDURE EQUIVALENCE (A)J 



1 095 O QOQ T OOOfl 



BOOLEAN A; EQUIVALENCE ♦ A; 



10950066 T 0008 



TEMPC1J <- GETVAL (1); 

A* 21 TEMPC23 «■ GETVALCA)! 



10950070 T 0012 
10950080 T 0015 



B* 3; TEMPC33 * GETVAL(IDENTITYCB)); 



10950090 T 0019 



TEMPC4] «• GETVALCAXA + B); 

FUR I M STEP 1 UNTIL 3 UQ MATRIXJI] * U 



10950100 j 0023 
10950110 T 0027 



I ■■■ ♦ 2 } T £ Mi £ 5 3 * G E T V A L < M A T R I X £ I 3 ) > 



10950120 T 0032 



TEMPt6]*GETyAL((li9),[43l33)> 

D ♦• E » TRUE' F » FALSER 



10950130 T 0036 
10950140 T 0039 



TEMPC73 * GETVAL(O); 



10950150 T 0041 



TEMPC83 * GETVAL(TRUE); 



TEmP[9]» GETVAlCNOT F OR £ ); TEMP[9j» TEMP [9 ] . [47 » 1 ] } 



10950160 T 0044 
10950170 T 0047 



TEMPC1Q3 ♦ GETVALCEQUIVALENCE(D)); 



10950J80 T 0053 



FILL ANS[*] WITH OCTl* UCT2' 0CT3* QCT7* 0CT2* 0CT5* QCTi> 



0CT1» 0CT1# OCTU 



CVN * 10; PNO * '931 



VERIFY 



10950220 T 0060 



END! 



PROCEDURE P96J COMMENT STREAM PROCEDURE DECLARATIONS, 

— ■ ■■'■■ -— — — n . l .. l . , ..;. l i ,. „ifr' , ! ,!, „ *~. _ i «-. . .. A'.. ."• ... " : 

5.12.3.2' DEC 6, 62. KM.j 



10950230 T 0060 
198 tS 66 LONG* NEXT SEG 10 
10960010 T Ol7« 
10960020 T 0~i74 



T< 



10950190 T 0056 
START OF SEGMENT ********** 199 

10950200 T 0058 
199 T S 10 LONG* NEXT S E G 19~F 
10950210 T 0058 



c 



2 
3 
4 

5 
6 



BEGIN 



10960030 T 0l?<| 



INTEGER 



a# c; 



ARRAY SRCLC0I53* DESTINC 1 I93J 



10960040 T 0j?4 
START OF SEGMENT ********** 200 

10960050 T 0000 



STREAM PROCEDURE CHEC*DECLARAT IONS (ARYl, AROUT»A*C*J 
. VALUE Ai_£J 



10960060 T 0003 



1 09600 65 T 000 3 



10 

11 

12 



BEGIN 



10960070 T 0003 



13 

14 
15 



LOCAL AA#88*STH#STRSRc*CCi»00' 
LAPEL LBL1, LBLjj 



10960080 T 0004 
10960090 T 0004 



16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 



Sl»ARYi; nT»AHQUTJ 



tally*a; aa«-tally; tally*tally+aa; aa*tally; 



qs «■ aa hds; 

str*di; di* loc bb; di*di+7; os*i chr; oi*str; 



us*88 chr; qi*di*bb; si*si+bb; str*Di; oi«-loc cc; 



0l*DI + 7i strsrc*si; si*loc c; si*si+7; ds*i chr; 
qi«-str; si«-sirsrc; ds*cc oct; 



1096Q10Q t 0000 



10960110 T 0004 



10960120 T 0006 
1q96qi3q T 00Q6 



10960140 T 0008 



28 
29 



10960150 T 0010 
1Q96Q155 J OQll 



31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 



os*B8 dec; di*di+cc; tally*bb; tally*tally+cc; 



uihtaily; 06*- ud add; ds*- dd num; susi-dq; 
oi«-di-dd;ds«-du zon; ds*do reset; os«-bb reset; 



10960170 T 0012 



os*dd set; ds*cc set; di*di*aa; 



10960180 T 0014 
10960190 T 0016 



10960200 T 0018 



40 
41 
42 



IF BB SC = DC THEN 0S«-B8 ADD; 
IF TOGGLE THEN DS»AA SURi 



10960210 T 0019 



10960 22 T 2 1 



45 



IF TOGGLE THEN GO TO LBUJ 



10960230 T 0021 



46 

47 



DS*3 LIT "BAD"; DS«-5 LIT "A"; 
LBL1' DS»3 LIT "COR"; QS»5 LIT"A"; 



10960240 T 0022 
10960250 T 0024 



49 
50 
51 
52 
53 
54 
55 
56 
67 



LBL2I 



10960260 T 0025 



end; 

FILL SRCEC*J WiTh cT24242<l2424242424# 0cT242424242<*24242"» 



10960270 T 0025 
10960280 T 0026 



START OF SEGMENT ********** 204 



JJ 



OCTO 33333333333330 1* 0CT2U0O0U0O0O0 17 763* 



10960290 T 0028 



>r 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



13 

14 



IS 
16 
17 
18 
19 
20 
21 
22 



23 
24 



26 
26 



27 
28 
29 
30 



31 
32 
33 
34 
35 
36 



37 
38 
39 
40 
41 
42 



•3 



46 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 



OCT 01020 30405060 700* 0C TO 10 20 30 70 7000000; 



10960300 T 0028 



F l i I PFSTINTO WITH — OCTnnnnonnnnnnnnnn. QPTnnnnnnnfi^ O n n o . 



201 T S 6 LONG, NEXT SEG 200 
10960310 T — 0028 — - 



OCT3333330000000000* 0CT01* ~ 

QC TO 1075 1000 1020 30*1* QCTQ5Q60 70077 l5 34g7 , 
OCT0102030505000000; 



START 8F SEGMENT ********** 202 
_______ __ 

10960330 T 0030 

10960340 j 0030 



A ♦ l; C * H 



CHECKQECLARATlONS(SRCE[0]> DESTlN[l3* A, C)i 
FOR C* 1 STEP 1 UNTIL 9. DO TEMPCO OESTlNCCJi 



202 t« 7 LONG, NEXT SEG 200" 

1Q96035Q T 0030 

10960360 T 0032 



FILL ANS[*3 WITH PJ______J1M1______ 0fcT2424242424 24;>4;>4 . 



10960370 T WU 
10960380 t 004* 



START OF SEGMENT ********** 203 



0CT333333000OOO0O00* QcTOl* 
QCTOl075lOQ020406lO» QCT050607QQ00 37 3 42.7 * 
OCTO1O2O 30 30 2000000* OCT 222 12^2 12 12 12 121* 



10960390 T 0043 
10960400 T 0043 



10960410 T 0043 



0CT23465i2i2i2i2i2i; 



cvn«-9; 



PN0*96; 
VERIFY 



1096042C T 0C43 
10960430 T 0"044~ 
10960440 T 0045 



end; 



10960450 T 0045 



200 fS 50 LONG* NEXT SEG 
PROCEDURE P97j CQMMENT 5.12.5.3 SET ADDRESS STATEMENT* CCZ* 12/4/62J 10970010 T 0l74 



10 



BEGIN INTEGER A; INTEGER ARRAY BCH2]; 



10970020 T 0l74 



INTEGER STREAM PROCEDURE SETLOCCA?; VALUE AJ 



START OF SEGMENT ********** 204 
10970030 T 0Q01 



BEGIN SI «• LQC A; oi* LOC SETLOC; DS «■ 1 WD5 END; 
INTEGER STREAM PROCEDURE SETSc(A)/ VALUE AJ . 



BEGIN Si » COC A; SI ♦ SC; SETSC * SI ENOi 



10970040 T 0001 
10970050 T 0"Q0T 
10970060 T 0004 



INTEGER STREAM PROCEDURE SETDCCA); VALUE A; 



10970070 T 0006 



J< 



• 



10960415 T 0043 
203 T S 9 LONG, NEXT SEG 200 



1 

2 
3 
4 
5 
6 
V 
8 
9 
10 
11 
12 
13 
14 
(15 



BEGIN DI + LOC A; DI «■ DC/ SE7DC * DI END/ 



10970080 T 0006 



A4-1Q23; FILL 8C *3 WITH 0CT377777OQOOOOOOOO* OCT31234500QQOOOQOO; 



10970090 T 0008 
START OF SEGMENT ********** 205 



205 T S 



2 LONG* NEXT bEG 204 



TEMPtlJ <■ SETLCJC(A); 
TEMPC23 » SETSC(BC13)J 



10970HO T 0011 
10970^20 T Q01A 



TEMPC3] «■ SETDC(Bt23); 



10970130 j 0017 



FILL ANS C*3 WITH 0CT1777, QCT377777, QCT312345; 



10970140 T 0021 
START 8F SEGMENT *»*»***»*» gQ6 



16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 



28 
29 

JO 

31 ~ 
32 



33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

SO 

51 

52 

53 

54 

55 

56 



206 jS 



3 LONG* NEXT SEG 204 



CVN ♦ 3; 

PNO «■ 97i 



10970150 T 0023 
10970160 T 0023 



VERIFY 



10970170 T 0024 



END* 



10970180 T 0024 
2Q4 tS 29 LQNfi» NEXT SgG 



JUL 



PBOrEUURE P98; COMMENT STQRF AUDRfSS 5.12.5.4, r. ZfThRAEUS, 12/4/6?; 



1Q96QQ1Q T Q l 74 



BEGIN INTEGE8 STREAM PROCEDURE STQSI(A); VALUE At 



10980020 T 0174 



BEGIN SI » A; STGSI » SI fcfrP; 



START OF SEGMENT ********** 207 
10980030 T OCOO 



INTEGER STREAM PROCEDURE STODI(A); VALUE A; 



10980040 T 0001 



BEGIN DI * a; STODI «■ ul end; 

INTEGER STREAM PROCEDURE STQCICA); VALUE A; 



10980050 T 0001 
10960060 T 0003 



BEGIN LABEL Ll# L2; 



local exit; 



10980070 T 0003 



SI * a; 

EXIT ♦ ci; 



10980080 T 0004 
1Q980Q9Q T 0004 



GO TO LU 



10980100 T 0004 



exit * ci; 



GO. TO Lli 



10980HO T 0004 
10 9 8 01 20 T 5 



exit * ci; 



10980130 T 0005 



GO to li; 



10980140 T 0005 



37 

38 | 

39 

40 

41 I 

42 

43 

44 ( 

45 

46 

47 > 

48 

49 

50 ( 

51 

52 

53 i 

54 

55 

56 ^ 

57 



GO TO Lti 



W 



9 
10 
11 
12 
13 
14 
IS 



16 
17 

18 
19 

20 
21 



22 
23 
24 
25 






26 

27 
28 
29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 



43 



45 
46 



•7 
48 
<9 
SO 
51 
52 
53 
54 
56 
56 



10980150 T 0005 



Li* 5i*si+8j ck-exit; 
iat stqci «• si 



10980160 T 0006 
10980170 T 0006 



end; 



10980180 T 0007 



ARRAY AClUJ* 

FILL AC«3 WITH QCT777777, 0CT666666* 0CT5555551 



10980190 T 0008 
10980?00 T 0010 



START OF SEGMENT ********** 208 



208 T S 3 LONG* NEXT S£G 207 
TEMPC13 »STQSI(A£13)j TEMPC2 3»ST0DI ( AC2] )J TEMPC 3 3»sTQCl C AC 3 3 ) J 10980210 T 0012 



FILL ANS[*J WITH QC1777777, 0CT666666* 0CT555560; 



10980 2 20 T. 0023 



START OF SEGMENT ********** 209 
209 tS 3 LONG* NEXT SEG 207 



CVN«-3; PNO «■ V8; VERIVY 



10980230 T 0025 



end; 



109802*0 T 0026 
207 iS 31 LONG. NEvT SrG 10 



PROCEDURE P99; COMMENT USE OF THE STREAM ADO STATEMENT, 5,12.5.5; 



10990010 T 0l7<| 



BEGIN 



INTEGER I J 



10990020 T Qi74 
10990025 T Ol7ft 



START 0F SEGMENT ********** 210 

STREAM PROCEDURE CHEC* AUQ5T ATEmEnT CARAYTEmP' ARA*TEmP25, FU N C# 10990030 T OOOO 

TWO); 



109900*0 T 0000 



VALUE FUNC*TW0; 



109900*5 T 0000 



BEGIN 



local a,b; 



10990050 T 0000 
10990060 J 0000 



CUARAYTEMP25; Si*LOC ARAYTeMP; OS * 1 WOS; 
si*ahatte:mP25; DI*LdC ARATTEMP25; OS* i WDS; 



10990070 T OQOO 



QUARAYTEMP25* DS*6 LIT "A*J 



10990075 T ODW 
10990080 T 0001 



duaraytemp; di«-di+8; skip 2« db; ds * 2n set; 



10990Q90 T 0003 



a*oi; 3(tallt*tally*i;2ctally«-tallt + i; b* tally; 

SI»LQC Bj IF SCg "A" THgN JUMP QuTJ 0l»8)J JUMP OUT)* 



10990100 T 0004 
1O990U0 T 0005 



uua; ds* 8 lit "B"; a«-di; 



2 
3 

4 

5 ' 

6 

7 

8 I 

9 

10 

11 1 

12 

13 

14 I 

15 

16 

17* 

18 

19 

20 I 

21 

22 

23 < 

24 

25 

26 

27 

28 

29 

30 

31 

32 ' 

33 

34 

35 < 

36 

37 

38 ( 

39 

40 

4,1 

42 






43 
44 
45 
46 
47 
46 
49 
50 
51 
52 
53 
54 
55 






10990120 T 0009 



# 



>r 
1 

2 

3 
4 
5 
6 



di+a; ds«-8 lit "b"; 



10990130 T 0010 



DUDI+ FUNC> SJ* LOC FUNCi Sl*Sl+ FUnc; OSi" 6 cHr" j 



end; 



10990140 T 0012 
10990150 T 0013 



INTEGER PROCEDURE X(A>* 



10990160 T OOU 



INTEGEH A; 

BEGIN X «• A END; 



10990170 T 0014 
10990180 T 0014 



10 

11 

12 



CHECKAODSTaTEMENTCTEMP* TEMPC25]* XC2),2); 



19990190 T 0017 



13 
14 

115 



FILL ANSEO WITH QCT21 2l 21 2l2l 2i2l 2t# QCT77777777* 



10990200 T 0021 
START B F SEG MFNT ********** 2JLL. 



17 
18 
19 
20 
21 



0CT2222222222222222* QCT2222222222222222, 



10990210 T 0023 



0CT2J 



-2-U--+ 



10990220 T 0023 
S 5 L 0NG, NEXT §EG 2-LG- 



22 
23 
24 
25 
26 
27 



cvn *3; 



10990230 T 0023 



PN0*99i 
VERIFY 



10990240 T 0024 
1 Q99Q23Q T 0Q24 



28 
29 
30 



end; 



10990260 T 0024 



31 
32 
33 



PROCEDURE P1Q0* COMMENT SKIP ADDRESS STATEMENT H N 8 ; 



210 iS 28 LONG, NEXT 5EG 10 
UOOOQlQ T 0174 



34 
35 
36 

37 " 

38 

39 



BEGIN 



11000020 j Oi74 



INTEGER i; 



H000025 T 0174 
START OF SEGMENT ********** 212 



40 
41 
42 



INTEGER STREAM PROCEDURE SkIPP(NO); VALUE NO* 



11000030 T 0000 



•3 
44 
45 



BEGIN 



U000040 T 0000 



46 

47 



Si «-NU;caMM£NT M RLG AND G REG ARE SET TU VAi-UE OF N0> 

NQ(SI * SI +no>; 



11000050 T 0000 
11000060 T 0000 



49 

50 
51 



SKIPP * SI 



UO0OQ70 T 0002 



52 
53 
54 

55 

56 
57 



ENOT 



FDR I •• 1 STEP 1 UNTIL 10 DO TEMPd] * SKIPP(i)J 



11000075 T 0002 
UOOOiOO T 0003 



FILL ANS[*J WITH QCTl0000l# QCT40Q002* 0CTl0QQQ4* QCT6* 



HOOOllO T 0010 



START BF SEGMENT ********** 213 



>T 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



16 
17 
18 
19 



20 
21 
22 
23 



24 
25 
26 
27 



28 
29 
10 

31 



32 
33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43* 



46 
46 
47 
48 



49 
50 
51 
52 
S3 
54 
55 
56 



QCTlOOOlO, QCT400012, QCTlOOQlS, 



0CT20# OCT100023# OcTflOOOgfi; 



CVN«-10; PNQ+IOQ; VERIFY 



END 



PROCEDURE PlOli COMMENT TRANSFER WORDS 5. 12, 6. 3 H N B ; 



BEGIN 



REAL ARRAY SQftCS* PESTNT* PEST INTN[ 1 1643 } 



STREAM PROCEDURE MvEhD (FROM* TOW#NUMBER ); VA^UE NUMBER; 
BEGIN 



si ♦• from; si •• si +2; 



oi«-tqw;di«.qi+«; 

PS » NUMBER wps ; COMMENT please aojust PHTNT FrS Tp 

START OF NEXT WORD* 



end; 

integer i* n; 



FOR I * 1 STEP 1 UNTIL 64 DO 



BEGIN 



SORCEUJ*! ; 



0'ESTNTtI)*633 



enq; 



MVEWD(S0RCEU]»DESTNTEn*63); COMMENT BLOCK TRANSFER ; 



DEST'INTN C2J«-7; 



MVEWD(D£STINTNC13#DESTINTNC23#10); COMMENT CHAIN * 
TEMPC13 » 0£STNT[ 643; 



TEMPC2] «• DESTINTNC12]; 



FILL ANSC*3 WITH QCT100* QCT7; 



11000120 T 0011 



11000130 T 0011 
213 T S 10 lONG, NEXT SFG 2Jl2_ 



11000H0 T 0011 



11000150 T 0013 
Z1 2 T s 16 LONG, NEXT Sgfi 10 



11010010 T 0l74 



11010020 T 0l?4 
U010Q30 T 0174 



START OF SEGMENT ********** 214 



11010040 T 0002 
Il0l0n50 T 0003 



11010060 t 0003 



11010070 T 0003 
llOlOOBO T 0004 



H010Q90 t °004 



11 10 1 OX) T 0004 
UOlOllO T 0004 



H0l0l20 t 00°4 



11010130 T 5006" 
U010140 T 0006 



11010150 T 0007 



11010160 T 0008 
11010170 T 0011 



11010180 T oou 



11010190 T 0016 
11010200 T 0019 



11010210 T 0021 



U«10220 J 0024 
START OF SEGMENT ********** gx»» 



< 



1 
2 
3 
4 
5 

6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



16 

17 I 

18 

19 

20 ' 

21 

22 

23 ' 

24 

25 

26 I 

27 

28 

29 ( 

30 

31 

32 I 

33 
34 

35 { 

36 

37 

38 { 

39 

40 

4, < 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53' 

54 

55 

56' 



• 

m 



215 rS 2 LONG, NExT Sf_g 214 



JJ 



>r 



2 
3 
4 
6 
6 
7 
8 
9 
10 
11 
12 
13 



14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 



29 
30 



31 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 



43 
44 
46 
46 
47 
18 
49 
SO 



51 
52 
53 
54 



55 
56 



CVN «■ 2/ PNU *■ 101; VERIFY 



11010230 T 0025 



ENDi 



PROCEDURE P102^ COMMENT 5,12.6,4 TRANSFER CHARACTERS H N 8 ; 



11810240 T 0027 

?14 tS 33 iM&a MEvT Src 10 

11020010 T 0\7H 



BEGIN 



stream psncrnuRf prmtcsrc<qest,s,o,c)i 



11020020 t 0j74 
1 10200 10 t Qi?a 



START OF SEGMENT ********** 2 16 



VALUE S» 0* Ci 
BEGIN 



1 1020035 T 0000 
11020040 T 0000 



si «■ src; si * si + s; 
01 ♦ dest;oi * di +d; 

OS » C CHR 



U020Q50 T 0000 



11020060 T 0000 
11020070 T 0001 



end; 



UO200B0 T 0002 



INTEGER I#NN».00CC#VAR#VAR2i 
VAR» VAR2 » II 



11020090 T 0002 
11020095 T 0002 



FOR I <• 3 STEP 1 UNTIL 6 QQ 



11020100 T 0004 



PRMT(VAR,VAR2, 7,1, IU TEMPC1 3*VAR2i 

PRMTfVARg* VAR. 3. ft. 311 T fMP[I>-|«.\/ARt 



11020110 T 0005 
lingOiPO T 0010 



FILL ANS[*] WITH QCT0101010101, QCTOlOi; 



H020i30 T 0014 



START OF SEGMENT ********** 217 
217 T S 2 LONG, NEXT SEG 216 



CVN «• 2/PNQ «.102I VERIFY 



EKDi 



11020140 T 0016 
11020150 T 0017 : ~~~~ 
216 fS 22 LONG* NEXT SEG 10 



PROCEDURE P103' COMMENT STREAM PROCEDURE INPUT CONVERT* Km. DEC 3.; 



11030010 T 0174 



BEGIN 



ARRAY 8RCECOI63* DESTN 1 1 1 e ] ) 



11030020 T 0174 
U030Q30 T 0174 



INTEGER C> 

STREAM PROCEDURE INP CA»8» X< T> Z» 0); 



START OF SEGMENT ********** 218 

110300*0 T 0003 
11030050 T 0003 



value *»y#*#q; 



11030060 T 0003 



l< 



£? 



m * 



>T 



10 
11 

12 
13 
14 
15 



16 
17 
18 
19 
20 
21 



22 
23 
24 
26 



26 
27 
28 
29 
30 



31 



33 
34 

36 
36 



37 
38 
39 
40 
41 
42 



43 



♦5 
46 
47 
•8 



49 
50 



52 
53 
54 
55 
56 

m 



begin 



L1030Q80 T 0003 



s i * a ; o i «- b ; 
ps *■ i Oct j si » si +6* os » 4 qct; si » si + 5* 



11030090 T 0004 
11030100 T 0004 



OS «■ 8 OCT; 



11030H0 T 0005 



os*y oct; sHsi+6; os«-x qct;si*si+x; si«-si+y; 
os » z qct; 



11030120 T 0005 
11030130 T OOPS 



os* oc 1; US ♦• Q qct; 



U03014Q t 0008 



END* 



FILL SRCEC*3 WITH QCT5 lOOQQQOOOOOOOO 1* QCTQ203040000000000* 



11030150 T 0009 
11030160 T 0009 



START QF' SEGMENT ********** 21 



OC TO 102030405060750* OCT 1 10000000000000 1' 
QCTOgQ 3440000000000* QCTQ 102O304Q50 6Q7 10* _ 



H030i70 T 0011 
U030180 T 0011 



UCT1010101010101010; 



U030i90 t 0011 



INPCSHCEC03* DESTNtU* «* 1* 8* 0)J 



FOR CM STEP 1 UNTIL 8 00 TEMP [ Cl «-DESTN [ c3 i 



219 T S 7 LONG, NEXT "&EG 218 

11Q3Q200 T OQ JJ 

11030210 T 0014 



FILL ANSC*] WITH OCT200000000000001W QCT2322* 



OCT2000000057060516* QcTll* QcT2000C00000Q02322' 



U930220 T 0~020 
START OF SEGMrNT ********** 220 



H030230 T 0022 



QCT57Q60516, UCTlO* OCTO* 



11030240 T 0022 
220 T S 8 LONG* NEXT S E G 218 



CVN«-8i 



H030250 T 002? 



pno* 10a; 

VERIFY 



11030260 T 0023 
1 1030270 T 0024 



end; 



1)030280 T 0024 



~ 218 |S 29 LONG* NEXT &EG 10" 
PROCEDURE P104; COMMENT STREAM PROCEDURE OUTPUT CONVERT* KM, D£C 3; U040Q10 T 0l74 



BEGIN 



11040Q20 T 0l?4 



ARRAY SRC£t0»8J* DESIMUaJ* 



U040030 T 0i74 
START OF SEGMENT »»*»»*»*»* 221 



INTEGER C» F* GH; 



11040040 T 0003 



57J 



m • 



h- 



STREAM PROCEDURE OUP(A, B* X* Y> l> Q* STV); 



U040Q50 T 0003 



VALUE X* Y* l> Ql 



BEGIN 



HOAOOSS T 0003 

noaooao t 0003 



LUCAL PQRJ 



1J040085 T 0004 



si*a; di*b; tally*o; 

PS* 2 QECJ OI»DI ♦ 5; DS»4 DECJ Ql» 0_j_j 



11040090 T 0004 
llQAOlOQ T 0004 



10 
11 



os* a DEC 



H04011C T 0CC5 



13 

14 



15 
16 
17 
18 
19 
20 



ds*y dec; di>di+x; di*oi+*; os*x dec; di*oi*x; 

p_______j 



H040J20 T 0006 
11040125 T 0008 



os*z dec; 



11040130 T 0009 



ds * dec; os * q dec; 01*01+8; ds* 3 dec; 
if toggle then tally*5; pqr»tallyi 



11040140 T 0009 
U040150 t 0010 



22 

23 
24 
25 
26 
27 



si*lqc por; oi*stvj ds*i wds; 



H040153 T 0011 



end; 

COMMENT PS* DEC WILL CONVERT 1 OCTAL WORD TO 1 DEC CHR. PS»0 DEC W*LL 



11Q40155 T 0012 
11040156 T 0012 



28 
29 

30 



* ***********NOT EFFECT THE SOURCE OR DESTINATION STRING NQr CONVERT ; 



U040157 T 0012 



31 
32 
33 



FILL SRCE t*3 WITH OCT 200000000000001 1, QCT200000UOQQ003434# H040l60 T 0012 

^ ; START OF SEGMENT ********** 222 



34 
35 

36 

37" 

38 

39 

40 

41 

42 



GCT2000C00056740516, 0CT11* 0CT3434, 
0CT56?40516* OCT/, 0CT2450, 0CT77/77777777777/7 i 



H040i70 7 0014 



Il040i80 T 0014 ~ 
222 tS 9 LONG* NEXT &£G 221 



F * 4; 



H040i6b T 0014 



43 
44 
45 

t6 

47 



0UPCSRCEC0J» OESTNCU* F> i# 8* 0* GH); 

FOR C*l STEP 1 UNTIL 8 DO TEMPCC3* PESTNCC3J 



11040190 T 0015 
U040200 T 0019 



48 
49 
SO 
51 



52 
53 



54 
55 



56 



IF GH=0 THEN TEMPC9J*3 ELSE TEMPC9J*0; 



U040205 T 0024 



FILL ANS I*} WITH 0CTC05l00O000QOOQQl» OCTl0O24O0Q0QO0O00O* 



11040210 T 0030 
S TART OF SEGMENT ********** 223 



OcTO 10 20 30004070150* OCT 1 100000000000 110, 



11*40220 T 0031 



QCT0200UOOQ00000001* 0CT02030Q0407Q 1 1007/ 
QCTO* OCT0302000000000000# OCT'51.- . 



H040230 T 0031 
11040240 T 0031 



223 T S 



9 LONG* NEXT Seg 221 



46 

47 I 

48 

49 

50 I 

51 

52 

53 ( 

54 

55 

56< 

57, 



2 
3 



CVN * 9> 



110^0250 T 0031 



PNO * 104; 

VERITY 



H040260 t 0032 
H Q40?7Q T 0033 



5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 



Z2 
23 



24 
25 
26 
27 
28 
29 
30 
31 

» 

33 
34 
35 



36 

37" 



38 

39 



40 

41 



42 

43' 

44 

45 

46 

47 

48 



49 
SO 



51 
52 



53 
54 



55 
56 



end; 



110440280 T 0033 



221 T 5 39 LQMG# NEXT SfG 
PROCEDURE P105; COMMENT STREAM PROCEDURE TRANSFER AND ADD STATe^ T 11Q50Q10 T 0l74 



10 



5.12.6.7 DEC 4. 1962 KM, J 



U050020 T Oi74 



BEGIN 



ARRAY SRCE C1U33 >DESTN [H133J 



U050030 T 0174 
11050040 TO iT4 



INTEGER C» Q«# QRS1 

STREAM PROCEDURE TRApQ ( A* 3 »X» Y» Z> Q* H ) ; 



VALUE ** Y* I) 



BEGIN 

LOCAL QQ# RR; 



START OF SEGMENT ********** 224 

U050Q50 T 0003 

11050060 T 0003 

11050065 T 0CC3 

U050070 T OCOT ~~ 
11050075 T 0004 



si*q; di*lqc qq; DS*l WdS; Si*r; DI*tOC rh; ds*i wdS; 



11050Q77 T 0004 



si* a; oi*b; tally*o; ~ 

ps «. 2 aqq; M* si+s; oi»pi+s; skip 4 s a ; skip 4 



DBi 



1105QQ8Q T 0005 
11050090 T 0006 



CS«-X ADO; Sl«-Si + 2j DI*Dl+2; DS*3 ADD ;SI«-A; DUB; 



11050100 T 0007 



51*51+16; DI*UI+16; 

os* y add; os* 1 aod; 



11050110 T 0009" 
11050120 T 0009 



SI * a; DI*B> SI«-Si+40; DI*DI*40; 



11050130 T 0010 



ds*2-$ub) $i*si+5* di*di*rr; skip 4 se; SKIP 4 db; 

ps»x Sue; Sl*S{+2; QI»PI*2; ps»3 sub; si»a; pi»b; 



11050140 T 0011 
11850150 T 0013 



Dl*DI+56; Sl*S>i + 56; 



11050160 T 0015 



05*. l ADD; IF TOGGLE THEN (UTALLY* 
PI* Pl+5; SI*SI»5> 0S»5 ADO; 



11030190. T 0015 
U050200 T 0016 



IF TOGGLE THEN RR*TALLY; 

di*di+5; si*si+5; ps*add; ds*sub; 
qI»r; si*loc rr; os»i wds; 



11050210 t 0017 



11050220 T 0017 
11050225 T 0018 



END. 



11050230 T 0019 



±7 



• • 



>r 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
II 
12 
13 
14 



(15 
16 
17 
18 



20 
21 
22 
23 
24 



26 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 



37 
38 
39 
40 
41 
42 
«3 



45 
46 
17 
18 



49 
50 
51 
52 
53 
54 
55 
56 



FILL SRCEC*J KITH 0CT04 1 1000000000077* 0CT27064500006727 1*7 , 



H050250 t 0019 



PC T2345 103123450704* 0CT4527 2?47000OO0OQ* 



START OF SEGMENT ********** 225 
U850260 T 0021 



QCTOOOCOOGOOOOCOOOO* OCT 40 7 000 000000077, 



11050270 T 0021 



OC T 060707 Ul 10203 44* OCfll 60000000001 1 1 1, 
QCTllllllOOQOOOQOOO* 0CT2222222222222222 ; 



H§50280 T 0021 
H050P90 T 0021 



FILL 0ESTN[*3 WITH QcT04 H00G0OO00O077* OCT2706650000274327"* 



0CT2 72 72 7 451 44.23 4b* 0CT1 03 123^52 7312 73 1, 



OCT 274 1000000000000* QCT020 70000000000 77, 
0CT1 10 7^711110304Q4* 0CT51 Q00000000Q1 1 1 1 * 



Oct 1 1 1 1 1 ico oooooooo* Octoooooooooooooooo; 



QH«-5f 



QHS» 5* 



TRADD(SacECl]» DESTNtU* 3* 12* 6* OR* QRS), 



FOR C*l STEP 1 UNTIL 10 00 TEMPCC]* DESTNtCJ* 
IF QR»0 THEN TEMPC113*! ELSE T£MP[lU*5; 



IF QRSsO THEN TEMP L 1 2 ]«-2* 



FILL AN3[*J WITH OCT1HOO0OO0O00OO77* OCT44O* 



OCTO 10 3060502000 lOO* 0CT04070 14207 1 107 1 1* 



0CT074 1000000000000* QCTO-240QOOOQ0000077' 
OCT060544UU050710* QCTUU* 



QCTllillOQOOOOOOOOO* OCT 02 4200 0000000000' 



0CT5* 0CT2* 



CVN* 12* 



225 T S 10 LONG, NEXT SEG 224 



HO5O32O T 0021 
START BF SEGMFNT »*»*»*♦**» 326 



11050330 T 0023 



11050340 T 0023 
11Q5Q35Q t Qp23 



11050360 T 0023 



11050400 T 0029 
11050415 T 0Q34 



11050417 T 0040 

__0~__T 0043 

START OF SEGMENT ********** 227 

H050430 T 0044 



U050440 T 0044 
1 1050450 T 0044 



11050460 T 0044 



H050470 T 0044 
227 T S 12 LONG, NEXT S£G 224 



11050490 T 0044 



PNO ♦ 105* 
VERIFY 



H050300 T 0045 
11B50510 T 0046 



end; 



1 
2 
3 
4 

5 i 

6 
7 

8 i 
9 
10 



226 t s 10 LONG* NEXT S£G 224 

11050385 T 0023 . 

H050390 T 0025 



11 1 
12 

13 

14 | 

15 

16 

'7 I 

18 

19 

20 ( 

21 

22 

23 i 

24 

25 

26 I 

27 

28 

29 I 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 



• 
• 



40 
41 ( 
42 
43 
44 { 
45 
46 
47 4 
48 



49 

50 ( 

51 

52 

53 ( 

54 

55 

56< 

57 



11050520 T 0046 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 



19 
20 
21 
22 
23 



24 
25 



26 

27 



29 
30 



31 . 
32 



33 
34 
35 



37 
38 



39 
40 
41 
•2 
43 



45 
46 
47 
48 



19 

50 



51 
52 



S3 
54 
55 
56 

5 



PROCEDURE P106; COMMENT STREAM DESTINATION STATEMENT TRANSFER" 



CHARACTER PORTIONS EK 5 DEC 62* 



BEGIN 



ALPHA ARRAY A* B, Z, 0C1I63* 



ALPHA X*Y; 



INTEGER I* J; 

STREAM PROCEDURE STPRQCCF i*F2,F3»F4»F5*F6) i 



BEGIN 



LABEL L1,L2>L3,14,L5; 
LOCAL Cl> C2»C3*C<t; 



SUFI J 



UUF2J 

OS «■ % ZQNJ 



os «■ 3 zcn; 



OS ♦ 8 ZON? 
05 «. 4 ZONJ 



OS «• 32 ZON* 



SUF3; 
DUF4* 



os* i inium ; 



224 i& 52 LONG, NEXT SEG 



10 



U060010 T 0174 
U060Q2C T 0174 



11060030 T 0174 



11060040 T 0174 
START 8F SEGMENT »»»*»**»** g2fl 



ds* i num; 



IF TOGGLE THEN GO TO LU 



L2» DS «. 3 NU'm; 

d* * b num; 



OS » .4 NUMj 



IF TOGGLE THEN GO TO L3; 



GO TO 141 

L3* OS * 32 *UM> 



GU TO L5> 



H060050 T 0QO2 



H060060 T 0002 
11060070 T 0002 



U060080 T 0002 



1 1060090 T 0003 
Il060l00 T 0003 



11060UO T 0003 
11060120 T 0003 
11060130 T 0003 



11060140 T 0003 



11060150 T 0004 
11060160 T 0004 



H060i7C T 0004 



HO6O18O T 0004 
11060185 T 0005 



11060190 T 0005 



11060200 t 0005 
U060210 T 0005 



11060220 T 0006 
11060230 T 0~0OT~ 
110602^0 T 0007 



11060250 T 0007 
11060260 T 0006 
U060g70 T 0008 



11060280 T 0009 



56 ' 
57 



N 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



n 



CI 



di* 



U060290 T 0009 



DI * F5J 01 «■ DI + 3; 
OS ♦ 5 LIT "MINUS M J 



11060300 T 0010 
11060310 T 0010 



DI 



ci; 



11060320 T 0011 



GO TO 12 J 



L4» C2«-Di; 



11060330 T 0012 
11060335 T 0012 



DUF6; DI* DI + 4; 



U060340 T 0013 



OS * 4 LIT "PLUS** 
01 » C2J 



13 
14 
15 



11060360 T 0013 
110 6 370 T 001 4 



16 
17 
IS 



GO TO L3; 



11060380 T 0014 



19 

20 
21 



L5» 



end; 



11060390 T 0015 
U06040Q T 0Q15 



22 
23 
24 
25 
26 
27 
28 
29 
30 



FILL AC * 3 WITH 0CT212223242526273Q* 0CT2122232425262 7 3 # 



1106041C T 0015 



OCT 21 42434445464750* OCT 2 1424 344454647 50* 



START QF SEGMENT ********** 229 
H060420 T 0017 



OCT 2162636465666770* OCT 2 16 26 364656667 70 ; 



HC6O43C T 0017 



31 

32 

33 

34 

35 

36 

37 " 

38 

39 



FILL B[*3 WITH QCT0102030405060710* 0CT01020304050607 10* 



0CT020 304050607 10* OCTOIO2O 30405060710* 
0CT020304050607l0, OCTO 102030405060710 ; 



229 T S 6 LONG* NExT 5EG 228 
U060440 T 0017 

■-t = ■ ■ < — ■ — ■ 

START OF SEGMENT ********** 230 
H060450 T 0019 
UO6O46O T 0019 



40 
41 
42 



230 t s 



6 LONG, NEXT SEG 228 



43 



45 



FILL Ct*3 WITH 0CT4142434445464750* 0CT6 I6263646566677O* 



H060470 T 0019 
START OF SEGMENT ********** 231 



46 

47 
•8 



OCT 2 1222 324 2526 27 30, OCT 2 1222 3 24 252627 30 * 



UO6O48O T 0021 



50 
51 ; 
52 
53 
54 



0CT4 142434445464750* QCT61 62636465666770*' 



U060490 T 0021 
231 T S 6 LONG* NEXT SEG 228 



FILL 0[*] WITH 0CT7777777777777777* 0CT777777 7777777777 $ 



HO6O5OO T 0021 



"START OF SEGMENT ********** 232" 
11 06051 T 002 3 



55 

56 
67 



OCT 77777 77777777777* 0CT7777777777777777* 



55 

57 



0CT7777777777 7 7777 7* OCT 777777 7 7 777 77777 i 



11060520 T 0023 



• • 



-*-)• 



>r 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



13 
14 
15 
16 
17 
18 



19 

20 

21 

22~ 

23 

24 

25 

26 



27 
28 
29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 ~ 



44 
45 



46 
47 
•8 
«9 
50 
51 



52 
53 



54 

55 



56 



232 T S 



6 LONG, NEXT SEG 228 



STPR0C(A[1J# BCX3» Cti J* D [ I J * X* Y)J 
FOR I <• 1 STEP 1 UNTIL 6 DO 



U060525 T 0023 
11060530 T 0029 



BEGIN 



U060540 T 0030 



TEMPtll * BUM 
TEMFCI+63 »DH3; 



11060550 T 0030 
11060560 T 0032 



end; 



U060570 T 0035 



TEMPC133 ♦ X; 
TEMPCU3 » Y; 



11060580 T 0037 
11060590 T 0039 



FILL ANS'[*J WITH QCT2122232425262730* 0cT2 1222324252627 30' 



H060600 T 00*1 



0CT2Q4 24 344454 64 750* PC T2 1424344454 64 75 0, 



OcT 20 626 36 465666 770* OcT216 26 36 465666770, 



OCTO 10 20 304050607 10, OCTO iQ20 30405060 7 10 * 
PC TO 102030405060710' OCTOi 020 3040 5060 7 1 0' 



START OF SEGMENT ********** 233 
11060610 T 0Q4 3 

11060620 T 0043 

U060630 T O0T3 
M060640 T 0043 



CJCTOlC 20 J040 5060710* OcTOiO 20 3O 405060 710' 



H060650 T 0043 



0CT4431456462, 0CT47436462; 



11060660 T 0043 
233 T S 14 LONG* NEXT S E G 228 



cVn «- i4; 



U060670 T 0043 



PNO ♦• 106* 
VERIFY 



11060680 T 0T4T 
11060690 T 0044 



END* 



HO6O7OO T 0044 



PROCEDURE Pl07i COMMENT STREAM DESTlNATl ONAL STATEMENT LITERAL 



228 IS 50 LOl*G> NExT SEG 10 
110700^0 T 0174 



CHARACTERS 



EK 



5 DEC 62; 



U070Q20 J 0l74 



BEGIN 



ALPHA ARRAY AU*63* 8CH33; 



11070030 T 0174 
U07004Q T 0174 



START QF SEGMENT ********** 234 



INTEGER I7j3 

STREAM PROCEDURE STPRH F1,F2>* 



11070050 T 0003 
11070060 T 0003 



BEGIN 



11070Q70 T 0003 



>r 



qi*fi; 



U070Q80 T 000<l 



O** 1 LIT "A"* 
OS* 3 LIT "BCD"* 



i 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 



1107QQ9Q T 0004 
11070100 T 0004 



QJ» «• 8 LIT M £FGHl/*s« ; 



11070110 T 0005 



OS* 4 LIT "KEH"J 
OS*- 8 LIT "AY W J 



11070120 T 0006 
11070130 T 0007 



OS* 16 LIT "B"i 



1107014.0 T. 0008 



13 
14 
15 
16 

17 



0S*1 LIT "aSTU«; 

ds » 7 lit "jklmnqpq*; 



11070150 T 0011 
1107016Q T 0011 



0UF2* 



11070170 T 0012 



0S*16 LIT M APASAD£NA,CALlLt H ; 
DS»8 LIT w AUSA w ; 



19 

20 



21 
22 
23 
24 
25 
26 
27 
28 
29 



11070180 T 0013 
1 107019Q T 0015 



30 
31 
32 
33 

34 
35 
36 

37 " 
38 

39 



end; 



11070200 T 0016 



STPR1(A[1J*BC13); 
FOR I t 1 STEP 1 UNTIL 6 QQ T£MPEl3 «• A C 1 3 ; 



U070210 T 0016 
11070220 T 0019 



FOR J <■ 1 STEP 1 UNTIL 3 DQ TEMPCJ + 6] «• BC J3* 



HQ70230 T 0025 



FILL ANS t *] WITH 0CT2122232425262730* 0CT3 1& i53754 2 25304 2 » 



H07O 2 4O T 0032 
START @F SEGMENT »»+*»*»»** 235 



0CT2 170 2 1702 1 702170, 0CT2222222222222222, 



U070250 J °034 



0CT2222222222222222* 0CT2 14 1424 344454647, 
0CT2 1472 1622 1242545, QCT2 172232 1433 143 32, 



H070260 T 0034 
11070270 j 0034 



40 
41 
42 



0CT216462212164622U 



HG70280 T 0034 



CVN * 9? 



235 f S 9 LONG, NEXT 3£G 2l4~ 
11070290 T 0034 



46 
47 
48 
49 
SO 



51 
52 



53 
54 



PNO «• 107^ 



H070300 T 0034 



VERIFY 



end; 



11070310 T 0035 
11070320 T 0Q35 



234 T S 40 LONG* NEXT SEG 



10 



55 

56 



PROCEDURE PlOfli COMMENT LITEHAL BITS 
BEGIN 



EK G DEC 62; 



11080010 T 0174 
11080020 T 0174 



ALPHA A5RAY A, B U : 4 ] ; 



11080030 T 0174 



55 

66 < 

57, 



m t 



start bf segment ********** 236 



INTEGER D 

S T RE A M PROCEDURE STPP2CF U F2 ) ) 



110800*0 T 0002 
11080050 T 0002 



BEGIN 



11080060 T 0002 



■Hvc*-: : "/F : H,,".- 
OS » 24 set; 



11080070 T 0003 
11080080 T 0003 



to 
n 



ps «• 48 set; 



11080090 T 0QQ3 



13 
14 
15 



DS4-60 set; ds* 60 set; 

Dl » F2J 



11080100 T 0003 
11080U0 T OJJOJL 



16 
17 
18 



ds «• i reset; 



11080120 T 0004 



19 
20 



OS * 48 RESET* 

ds*6o reset; ds«-36 reset; 



11080130 T 0004 
11080140 T 0005 



22 
23 
24 
25 
26 

n 

28 
29 

30 



DS> «■ 47 reset; 



11080150 T 0005 



sufi; di*fi; 



4CIF SC*"«" THEN 0S*1 RESET; Dl*DI+7; 

si*si+e); 



11080155 T 0005 
11080157 T 0007 



end; 



H080t60 T 0008 



31 

32 

33 

34 

35 

36 

37 " 

38 

39 



FILL ANSE*3 WITH OCTO* OCTO* QCTO* OCTO; 



11080170 T 0008 
START OF SEGMENT ********** 237 



237 T 5 4 LONG, NEXT SEG 236 



FILL 8C*3 WITH OCT 7777777777777777 p QC17777777777777777* 



UO8O18O T 0010 



40 
41 
42 



OCT 7 7777777 7 777 7777 » OCT 7777777777777777 } 



START 8F SEGMENT ********** 238 
Il080l90 T 0012 



43 



45 



238 T S « LONG, NEXT SfQ 236 



STPP2CA#8)i 

FOR I ♦ 1 STEP 1 UNTIL 4 qO 



46 
47 
48 



HO8O2OO T 0012 
11080210 T 0014 



49 
50 
51 
52 
53 
54 
55 
56 



BEGIN 



TtMPcu* Atu; — 

TEMP[I+4] * Bill; 



11080220 T 0015 

11080230 T 0~0T5~ 
U08024Q T 0017 



end; 



FILL ANSt*J WITH QclWrt7t7'7777?77f7* 0CT37 77777? U (77777* 



U080250 T 0020 

11080260 T OCTT 



1 

2 
3 
4 
5 



START OF SEGMENT ********** 239 



OCT 37 7 7777 777 77777 7» OCT 3777777777777777' 
OCTOj QCTOj OCTO*' OCTO; 



U08O270 T OQ24 
1 l 06O?eq T 002» 



239 T S 



8 LONG, NEXT SeG 236 



■/ 

8 
9 
10 
11 
12 



CVN <• 8' 
PNQ » 1@8J 



11080290 T 0024 
11 080 300 T Q25 



VERIFY 



11080310 T 0026 



13 
14 
15 



END* 



H080320 T 0026 
236 TS 31 lQNGj NEXT SEG 



JJL 



16 
17 
18 



PROCEDURE P109; COMMENT 5,12.7 STREAM G(j TO STATEMENT H N B ; 



H090010 j 0174 



19 
20 
21 



BEGIN 



STREAM PRCCEDURE liQTO ( SRC* DST* SRSjDSN ) ; 



U090020 T 0174 
11090030 T 0|74 



22 

23 
24 
25 
26 
27 
28 
29 
30 



BEGIN 
LABEL HJ 



START OF SEGMENT ********** 240 
_________ 0oOQ 

11 090Q5Q T 0000 



Si ♦• SHC 



11090060 T 0000 



31 
32 
33 



di * dst; 
ds * 1 wds; 



U090070 T 0000 
11090080 T 0000 



34 
35 

36 

37 " 

38 

39 



GO TO h ; 



H090090 T 0000 



si * srs; 
01 «• dj>n; 



UO9O1OO T 0001 
11090110 T OQOl 



40 
41 
42 



os «■ 1 wds; 



11090120 T 0001 



43 
44 

45 



Hi END I ■>■■;■'-.■ 
TEMPEU*63J 



U090130 T 0001 
11090140 T 0002 



46 

47 



TEMPC23* 63; 



11090150 T 0004 



so 

51 
52 
53 



TEMPC3J* I7i 
TEMPC4]* 17* 



H09016Q T 0006 
11090170 T 0006 



G0T0(TEMPtl]»TEMPt3]*TEMPt2J#TEMP[4]); 



11090180 T OOlO 



FILL AN»C*3 WITH QCT77, 0CT77* 0CT77* 0CT2U 



55 
56 
f7 



11090190 T 0014 
START OF SEGMENT »**»»**»»* 241 



55 

56< 

5? 



241 T S 



4 LONG, NEXT SEG 240 



_ # 



h 



8 
9 
10 
11 
12 
13 
14 
15 
16 
17 



18 

19 



20 
21 
22 
23 



24 

25 



26 

27 



28 

29 

30 

31 ™ 

32 

33 

34 

35 

36 



39 
40 
41 



«2 
43 " 



45 
46 
47 
48 



49 
50 



51 
52 
53 
54 



n 



CVN <-4; PNU*-109;vtRIFY 



11090200 T 0016 



end; 



11090210 T 0017 
?4Q ?S 19 LONG, NEXT SFG 



JJL 



PROCEDURE PUO; COMMENT 5,12.8 SKIP BIT H N B; 



1 1 1 o o o l c t Oi?4 



BEGIN 



STREAM PROCEDURE SKSJTSt SRC*D5T* S*0*N H 



11100020 T 0174 
11100030 T 0174 



START OF SEGMfNT ********** 242 



VALUE S« D» NJ 
BEGIN 



11100035 T 0000 
11100040 T 0000 



Si «• 3Rc; DI* DSTJ 



U1C0050 T 0000 



SKIP S SBJ SKIP D DBj 

OS * N CHR 



11100060 T 0000 
11100070 T 0001 



end; 



11100080 T 0002 



FILL TE«PC*3 WITH QCT1030507; 



11100090 T 0002 
START 8F SEGMENT ********** 243 



243 T S 



1 LONG* NEXT SeG 242 



SKBITS (TEMPtU* TEMPC23* 30,36*1); 
FILL ANS[*J WITH 0CTl03Q507> QCT0300; 



HlOOjOO t 0004 
HlOOilO T 0008 



START 8F SEGMENT ********** 244 



CVN *2; pno «-iio; VERIFY 



244 jS 2 LONG* NEXT SEG 242 
11100120 T 0009 



end; 



11100130 T 0011 



PRCcEDURE Plli; COMMENT 5,12>V STREAM TALLY H N B; 



242 jS 12 LONG* NEXT SeG 10 
_ 11110010 T 0174 



BEGIN 



11110020 T Oi74 



INTEGER i; 



INTEGER STREAM PROCEDURE SQUART (N ); VALUE NJ 



11110030 T 0000 



BEGIN 



TALLY*©* 



11110040 T 0000 
llllQGSO T 0000 



N(N(TALLY«.TALLY + 1); ); 



11110060 T 0000 



ft 
2 I 

3 

4 

5 I 



11110025 T 0174 
START OF SEGMENT »»»**»»*»* 245 



55 

56 < 
5} 



n 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
IB 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
2B 
29 
30 
31 
32 
33 
34 
35 
36 

37 " 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



SQUART <- TALLY 



110070 T 0003 



end; 

FOR I «• X STEP 1 UNTIL 10 QQ 



110080 T 0003 
U0Q90 T 0004 



TEMPtl] * SQUARTcn; COMMENT 1*2 ; 



UOlOO T 0006 



FILL AN$[*J WITH QcTl# 0cT4# OcTil* QCT20* QcT31* 0CT44> 



- STAR T QF 



UOiiO T 0011 
SEGMFNT ********** 346 



0CT61* OCTO* 0CT21» 0CT44; 



11012Q T 0012 



246 T S 



CVN»1QJ PN0»U1J VERIFY 



10 LONG, NEXT $EG 245 
1 1013Q T 0012 



end; 



U0j4O T 0014 



245 jS 



PROCEDURE PU2; COMMENT STREAM NEST STATEMENT EK XI DEC 62; 



17 LONG, NEXT SEG 
1200*0 T 0174 



10 



BEGIN 



120020 T 01/4 



INTEGER A#8»E*F#G>J>k; 



START OF 



120030 T 0174 
SEGMENT ********** 247 



ARRAY C[Q» 19],D[0: 191* H[0;83» I CO* 83 ^ 



120 Q4Q T OOOQ 



STREAM PROCEDURE STPRN CF1 * F2>F3# F4> F5* F6»f7* F8» F v > FlO >; 



120050 T 0007 



BEGIN 



LABEL Ll#L2>L3'L5>L6,L7; 



120060 y 0007 
120070 T 0008 



LOCAL V1,V2»V3»V4; 



120Q80 T 0008 



TALLY «■ 0; ' ~~ 
d(Sl«-LOC Fi; 01 «- LOC F2) 



120090 T 0008 
120100 T 0008 



vi * si; v2*di; oi«-V2i si*vi; 



120U0 T 0009 



TALLY «- TALLY +1); 

01 «• F2; 



120120 T 0010 
120130 T 0010 



F2 * tally; 



120140 T 0010 



SI «■ LOC F2; 



120150 T 001 1 



os ♦ 1 wos; 

TALLY* y 



120160 T 0011 
12 1 7Q T 0011 



56 
58< 



v wtally; 



12017b T 0011 



• t 



SI «• F3, 



i 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IB 
16 
17 
18 
19 
20 
21 



22 
23 



24 
25 



26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 



37 
38 
39 
40 



41 

42 

43 ~ 

•4 

45 

46 

♦7 

«8 



49 
SO 
E1 
52 
53 
54 
55 
56 



DI «■ F4 ; 



2 cos*! kds; us«-a chk; ds+8 oct; os*-a o£c; 



GQ TO LU OS* l WDS; Li» OS *8 AODi OS *8 SUB' 
OS «■ 8 ZQNJ DS» 8 NUM) ; 



GU TO L2; 



TALLY ♦ TALLY +H 



U2» 3 (pS »2 LIT w E w ; PS » 6 SETf OS » 6 RESET* 



gu to l3; jump out; l3» skip 6 db; skip 6 sb; 



OS * 3 LIT «£*"); 
TALLY » c; 



CI «• F5. 



2 (TALLY «- TALLY + i;2 (TaLLY «. TALLY+i> 2 (TaLLT cT 
TALLlnj JUMP OUT);jUMP OUT; TALL Y » TALL Y +1>; T A L LY 



«• TALLY +1) i 



F5 * TALLY; 
31 » LQC F5; 



OS * 1 wds; 



TALLY + o; 01 * F6; 

3 (TALLY «■ TALLY+1? 2CTALLY » TALLY+1); F6 «• TALLY); 



H120180 T 0012 



11120190 T 0012 
U220200 T 0012 



11120210 t 0014 



11120220 T 0015 
11120230 T 0016 



U1202«0 t 0017 



11120250 T 001? 
11120260 T 0017 



111202/0 T 00l9 



11120280 T 0020 
1112029Q T 0022 



11120300 T 0022 
11120310 T 0022" 
11120320 T 0023 



11120330 T 0026 



11120340 T 0026 
11120350 T 0026 



1112036C T 0027 



11120370 T 0027 
11120380 T 0027 



SI «■ LOC F6; 



11120390 T 0029 



os * i i*dS; 

TALLY ♦ 0; 01 ♦ F?i 



11120400 T 0029 
11120410 T 0030 



3C3CTALLY «. TALLY+1); TALLY * TALLY+p; 



U120430 T 0030 



F7 ♦• tally; 

SI» LOC F7; 



00111204 T 0~0~3T 
11120450 t 0032 



os «. 1 wds; 
01 > F9 ; 



11120460 T 0032 



SI » F8 J 



11120470 T 0032 
11120480 T 0033 



45 

46 
47 ' 

48 

49 

50< 

51 

52 

53 < 

54 

55 

56* 

57 



• • 



h 



5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 



24 
25 
26 
27 



28 
29 

30 
31 
32 
33 
34 
35 



36 

37" 



38 
39 

40 



42 
43 



44 
45 



46 
47 
48 
49 
50 
51 



52 

53 
54 

55 



56 
S>7 



k (IF 1 SC = 0C THEN BEGIN IF 1 SC ■ DC THEN 



OS «■ z CHS END)* 
2( SKIP 1 SB; SKIP 1 DBJ 



IF S8 



THEN 2 (4(DS *■ \ CHR););)j 



01 ♦ 01-2; si ♦ si-2; 

2 (IF SC » ALPHA THEN BEGIN IF TOGGLE THEN 



DS «- 4 CHR EiNQ) ; 



TALLY * 0; 

3 (IF 8 SC « DC THEN 8 (IF SC * ALPHA THEN 



JUMP OUT 2 10 L5; 



TALLY «• TALLY + n;TALLY * TALLY +1); 
L6? PI *■ Flo; 



mo «■ tally; 



si * loc fiq; 

ds «- 1 wds; gu to l7j 



L5S DS * 5 LIT "0"; DS «- 3 LIT "SHD"; 



GU TO L6 ; L7* 



ENDi 



FILL C[*3 WITH 0CT212223, 0CT12345670, OCT 365432 lO 12345670, 



START OF 



0CT207* DCT33* OCTO lO lO 10 lO 10 lOiQ j» QcT0202020202020202* 



OCT2040Q06060404020-»OCT010203C40!>060700»- OCT 3 13233* 



0CU020304055627377, 0CT60«, 0CT22* 0CT0l02O3Oa0506Q7 10* 



OCTllllllllllllllH* OCT00602C* OCT01020304* OCTO' OCTO' UCTo~> 



248 T S 



FILL Dt*3 WITH 0CT2223,QCT0*QCT0,0CT0,0CT0,QCT tOlOlOlOlOiQlOiO* 



START OF 



UCT0404040 4040404Q4*QCT0101010101010101 *QCTQ'QCT10' 



ocTo*ocTo#ocTo*ocTmnunnuui»ocTOioioioioioioiot> 



OCTQ* OCTO* OCTO' OCTO* OCTO; 



1120500 T 0035 



1120510 T 0036 

1120511 T 0037 



1120520 T 0038 



1120521 T 0040 
112053Q T 0041 



1120540 T 0042 



1120550 T 0043 
1120*60 T 00a3 



1120561 T 0045 



1120570 T 0046 
U 2 0580 T 0047 



1120590 T 0047 



1120600 T 0047 
1120610 T 0047 



1120620 t 0048 



1120621 T OQ50 
1120630 T 0051 



1120640 T 005l 



SEGMENT ********** 248 
1120650 T 0053 



112066 T 053 



1120670 T 0053 



1120680 T 0053 
20 LONG* NEXT SEG 247 



1120690 T 0053 



SEGMENT ********** 249 
1120700 T 0055 



1120710 T 0055 



1120720 T 0055 



>r 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



13 



15 
16 
17 
18 



19 
20 
21 
22 



23 

24 



25 
26 



27 
28 
29 

30 

31 S 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 



43 
44 
45 
46 
47 
48 



49 
50 



51 
52 
53 
54 

56 

56 



249 jS 20 LONG* NEXT SeG 247 



FILL H [*J WITH 0CT2421222324212223,0CT21227777232<»7777, 



OcT 25 267 777232477 7 7, QcT 30 1 12 13 150604423* 



11120730 T 0055 

START QF SEGMENT ********** 250 

11120740 T 0057 



OCT 376655443322 H0O*OCT2 10 1020322040506#0CT0' 
0CT202 12 12121000000* GCT2t OOOOOOOOOOOOQO J 



11120750 T 0057 

11120751 T 0057 



250 T S 9 LONG, NEXT SEG 247 
FILL I t*3 WITH OCTO,OCT2122000023240000*OCT2526000023240000» U 120760 T 00f7 ~ 

; START OF SEGMENT ***»»*»»»» 251 



OCT 3 700000000000000* OCT 3700000000000000* OC TO' OCT C» 



11120770 T 0059 



OCT 20212 12 12 1000000* 0CT2 100000000000000; 



11120771 T 0059 
25j T S 9 LONG. NEXT SEG 247 



STPRN (A*fi*C*D*E»F*G*H* I* j); 



TEMPUJ «■ Bi 

FOR K » STEP 1 UNTIL 19 QQ TEMP[K+23» D[K]J 



11120780 T 0059 
11120790 T 0064 
11120600 t °0 6 5 



TEMP[22] * U 



11120810 T 0071 



TEMPC233 * F; 
TEMP 1 24 ) ■*■ O; 



11120820 T 0073 
11120830 T 0075 



for k <• o step l until a oo tempck+25J * ickJ; 



11120840 T 0077 



t£mPc34J * j; 



FILL ANS [»3 HjlH OcT 1Q'0CT2223* OcT 12345670* 



11120850 T 0082" 
11120860 T 0084 



0CT3654321O1234b67O*0cT33*OCT207*OCTllllllllllllllli* 
QCT02020202020202Q2* 0CT2 14 16 16 16 14 14 i2 1' 



START OF SEGMENT ********** 252 
11120870 T 0086 
1 1 120880 T 0086 



OCT 01020 30405060 700, o C T 3 13233* OCT 1020 304055627 377, 



11120890 T 0086 



OCT100>QCT110*OCTOl02o304o50607Q7*OCTiQlQlQ101QlQ105 0* 
QcT0060 30*0CTQl020 30q,0cTP5g577000035fl225* 



11120900 T 0086 
11,12 91 T 0Q 86 



OCT 2525770000254 225, QCT2525770000 254225, OCT 10, OCT 11 # 
OCT I 4*0CT2 42 1222 32 42 12223 #0CT2 122 7777232 47777, 



11120920 T 0086 



OCT 252677 7723247777* OCT 37 U21 3 150»04423* OCT 37O0554433221100' 

OCT21010 20 3220 40 50 6,OCTO,OCT2021212121000000* 



11120930 T 0086 
11120940 T-; 0086 



11120950 T 0086 



T* 



h 

2 
3 

4 
5 



9 

10 

12 
13 

I « 
15 

16 

| -7 

18 

19 
| 20 

21 

22 
k 23 

24 

25 
k 26 

27 

28 

> »' 
30 

31 ~ 
| 12 

33 

34 
( 35 

36 

37 ~~ 
I 38 

39 

40 
i 41 

42 

43 ~ 
! 44 • 

45 

48 

47 

18 

49 

SO 

51 

52 

S3 

54 

55 



0CT626624.0CT11; 



CVN «• 34; 



PNG ♦• 112; 



VERIFY 



SML 



PROCEDURE PU3; COMMENT JUMPQUT STATEMENT EK 10 DEC 62; 
BEGIN 



INTEGER A*b#C»D»E; 



STREAM PROCEDURE STPRJ ( Fl ,F2 ,F3,F4,f 5 ); 

dtGIN 



LABEU L1*L2>L3; 

pi t m 



TALLY «- 0; 



4 C TALLY ♦ TALLY + 1J JUMP OUT) ; 
H i. tally; 



SI «• LUC fi; 



0S «• i woS; 
TALLY <• 0; 



U120951 T 0086 



252 TS 34 LONG, NEXT SEG 247~ 
11120960 T 0086 



11120970 T 0087 



11120980 T 0087 
11130990 T 00B7 



247 IS 94 LONG, NEXT SEG 



11130010 f 0174 
11130020 T 01741 



11130030 T Oi7fl 



11130060 T OCOO 
11130070 T 0000 
11130080 t 0000 



H130Q90 T 0000 



11 1301 00 T. 0000 
11130110 t 0003 



11130120 T 0002 



Ul *■ F2> 

'UBCTALL* «■ TALLY + U JUMP OUT)J I ALL*«-TALL Y + l; 

GO TO LU TALLY * TALUY+1; LH JUMP Out) J 

TALLY «• TALLY + i; 



11130130 T 0002 

11130140 j» 0Q02 

11130150 T 0003 

1113O160 T O^OT" 

U13017Q T 0005 

11130180 T 0007 



F2 + tally; 

SI » LOC F2J 



os «• 1 mos; 



01 * F3J 

TALLY. » o; 



11130190 T 0007 

11130200 t 0007 

11130210 T 0007 

11130220 T 0006 

11U0230 T POOH 



10 



START BF SEGMENT ********** 253 
U130Q50 t 0000 



i 

i 



9 
10 
hi 
12 

13 

14 < 

15 

16 

17 < 

18 

19 

20 ( 

21 

22 

23 ( 

24 

25 

26 { 

27 

28 

29 I 

30 

31 

32 ( 

33 

34 

35 4| 

36 

37 

38 4| 

39 
40 
41 I 



42 

43 



44 
45 
46 
47 
48 
49 



50 

51 

52 

53 I 

54 

55 

56< 



• 
• 



8C8(TALLY*TALLY+i; JUMP OUT); 8 ( T ALL Y *T ALL Y + U 



1 1 1 30^40 t onnfl 



TV 



>T 



1 

I 2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13~ 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 



25 
26 
27 
28 
29 
30 



31 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

«3.~ 



45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
96 



jump uun; jump out to L2; tally*-tally + i;jump out); 



TALLY * TALLY + W 

L2t F3 » tally; 



SI ♦• LOC F3> 

05 *> 1 WPS; 
01 «• FHi 



TALLY «■ 0; 



3(G0 TO L3J 3(TALLY*TALLY+i>; L 3I JUMP OUT; TAlLY*T AllY+1 ) ; 
TALIY*TALLYU* 



fa «. tally; 



SI*LOC F4l 



ps ♦• 1 wds; 



DI «• F5 



TALLY «■ 0; 



2Ctally»tally»i; 3ctally»tally+i; ctally <• 



TALLY + i; JUMP OUT); TaLLY*taLLY+i; JUMP OUT); JUMP OUT; 



TALLY ♦ TALLY + U ; 

F5 *■ tally; 



SI «■ LOC fs; 
05> * 1 wos; 



end; 



STPRJ (A#B*C#0#E); 



TEMPtn «■ a; 

TEMPC2J «• B; 



TEMP[3] «■ c; 
TEMP[4J * O; 



TEMPC53 ♦ E; 



FILL ANS'c*3 WITH OcTl* UcT3> 0cT2» QCTl* o<;T4; 



11130250 T 0010 



U130260 T 0014 
1U3027Q T 0014 



11130280 T 0015 



U130290 T 0015 
11130300 T 0015- 



U13O310 T 0016 



11130320 T 0016 
1U3034Q T 0019 



H130350 T 0019 



11130360 T 0019 
Il l303?0 T 0019 



11130390 T 0020 



11130390 T 0020 
U130q00 T 002q 



H13041Q T 0021 



U130420 T 0024 
1U30430 T 0025 



11130440 T 0025 



11130450 T 0025 
U130460 T 0025 



11130470 T 0026 



11130480 T 0~02T" 
11130490 T 0029 



11130500 T 0031 



11130510 T 0033 
11130520 T 0034 



11130530 T 0036 



START OF SEGMENT ********** 254" 
254 fS 5 LONG, NEXT gfQ 253 



CVN «■ 5; 



11130540 T 0038 



^r 



13 

14 
p. 
16 
17 
18 
19 
20 



26 
27 
26 
29 
30 
31 
32 



36 



♦5 
46 
47 
48 



SO 
51 
52 
53 
54 
55 



56 



PNO «• 113; 1H30&50 T 0039 

VERIFY 11130560 T 0039 ~tf 



START OF SEGMENT ********** 255 

— _— INTEGER I*A'B*C»DJ 1 1 15004Q T 0Q01 

11150050 T 0001 

~~ STREAM PROCEDURE CSS (OeST>SRCE» A#8*C* D ); " 11150060 T 0001 

j. : VALUE A,9*C,QJ . 11150061 T OOOl _ 

BEGIN 111500^0 T 0001 

H LOCAL Tl4*Tl5*Tl6*Tl7#Ti; U150080 T 0003 



LABEL L1^L2*L3*L<*>L5*l6»L7»LA>LB; 1U50Q90 T 0003 

SI «- SRCE ; DI «• DEST ; 11150100 T 0003 

BEGIN COMMENT DUMMT STATEMENT 0*>«- 1 W S E"N"oTEW5" 11150.10 T — O'OOT' 



33 BEGIN END; ^ 11150120 T 0003 

34 - - ~ — - _ _ ._ ,. 

35 BEGIN 11150130 y 0003 



" " BEGIN ~ "" ~" ~~ " U 150140 T 0003 

38 

M | BEGIN SI «• SI48; OS » 1 HpS END U150l50 T 0Q03 

END 11150160 T 0004 



ENB; 11150170 T 0004 
0S t 1 HDS; lllSOlSO T 0004 



BEGIN OS «• 1 *DS END/ 11150i90 T 0004 



is \ ~" BEGIN OS «■ 1 rtDS END; 1 1150200 T OOOT 

— - _j TO Li; 11150210 t 0004 

BEGIN US 4- i KDS; Lil DS * 1 WDS; D5 «. 1 hDS END; H150_20 T 0005 

BEMIN U5 «. j WDSI UQ TQ U2 , os ,, j NDS £No; - H150230 T — Q~Q~OT 

__ ; , , , . _J_2J OS » 1 WOSJ __ . __ . , . \ ■ m 50240 T 0007 

BEGIN 1U50250 T 0008 



E-Bi 11130570 T 0039 

253 tS 44 LDNG, NEXT SEG 10 « 

PROCEDURE P115; COMMENT 5,12,12 COMPOUNO STREAM STATEMENT 8/5/63 U 6; H150010 T 0l74 

9 J B EGIN ; 11150020 T 0l74 

INTEGER ARRAY STRM [0J2QJ; U150030 T 0i74 



57J 



N 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



13 
14 
16 
16 
17 
18 
19 



20 
21 



22 
23 
24 
26 



28 
27 



28 
29 



10 
31 " 



32 
33 



34 

35 
36 

37 " 
38 



40 

41 



42 
43 



♦5 
(6 
47 
48 
49 
50 
51 
52 
53 
54 



56 



go to la; 



U1502?0 T 0008 



os ♦ i wos ; 

LAi os » i wos ; 



1U50280 T 0008 
11150P90 t 0008 



GO TO LB; 



11150300 T 0009 



■■'<* OS * i wos;; 
lb; ds » i wos; 



11150310 T 0009 
11150320 T 0009 



GO TO L3 ; OS «. 1 WOS 



11150330 T 0010 



eno; 



os <• i wos; os » i wos; 



U150340 T 0010 
11150350 t 0010 



L4» BEGIN OS «■ 1 WDS/ 



11150360 T 0011 



OS * 1 MDS; 60 TO L5; 

DS » 1 WOS 



1U5O370 T 0012 
11 150380 t 0012 



end; begin ds ♦• i wos; 



L3« OS «■ 1 WDS; 
G O . TQ L* J QS t 1 W O S , 



11150390 T 0013 
U150400 t 0013 

1 U5Q410 T om« 



end; 



11150420 T 0014 



L5t 



T14 * DIJ 01 ♦ DI.+ 3J 

Ti5 ♦ oi; oi «• oi + e; 



M150430 T 0014 
1115Q44Q t 0015 



T 16 * oi; 01 * 01 + 8' 

iw * oi; 



11150450 T 0016 



TALLY ♦• A ; Tl * TALLY* SI «■ LOC Tl; 01 ♦ LQC A; 



11150<j60 T OTTF 
111504^0 T 0016 



L6I 



if e sc= dc Then 



11150480 T 0018 



BEGIN SI ♦ LOC A; 
DI «■ T14 ; 



11150490 T 0~0T9~ 
11150500 T 0020 



OS «• i wos 



11150510 T 0020 



END 



ELSE 



11150520 T 0020 
U150530 T 0020 



BEGIN SI «• LOC 8; 



11150540 T 0021 



01 ♦ T15 i 
09 ♦ I WOS 



UI50350 t 0021 
1115096& T 0021 



END 



11150570 T 0021 



IF TOGGLE THEN 



U150580 T 0021 



>r 



1 
2 
3 
4 
5 

6 

I 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

« 

44 

45 

46 

47 

48 

49 

SO 

51 

52 

53 

54 

55 

56 



BEGIN SI «• IQC c; 

PI * TX 6 L 



1U50590 T 0022 
Ill50ft00 T QQ2? 



1 

2 I 

3 

4 

5( 
6 

7 

M 

9 

10 

", 
12 

13 

14, 

15 
16 
"I 

18 

19 

20 ( 

21 

22 

23 ( 

24 

25 

26 ( 

27 

28 

29 I 

30 

31 

32 ( 

33 

34 

35 { 

36 

37 

38 ( 

39 

40 

41 ( 

42 

43 

44 4 

45 

46 

47 ( 

48 

49 

50 ( 

51 

52 

53 ( 

54 

55 

56 ( 

6? 



PS t 1 *DS; 



11150610 T Q023 



SI ♦ LQC AJ 



U1S0620 T 0023 



DI «■ LQC 8; 
GO TO L6 



11150630 T 0023 
1 U90640 T 002 3 



END 



11150650 T 0024 



ELSE 
BEGIN SI * LOC Q } 



11150670 T 0024 
111 50680 T 0024 



DI «■ T17 



11150690 T 0024 



DS ♦ 1 *DS 



END 



; 



11150700 T 0024 
11150710 T 0025 



END STREAMPROCEDURE CSS J 
COMMENT START OF EXECUTE OF Pn5i 

A»l4jB»l5fC«-16;D»17,? 



11150720 T 0025 



11151010 T 0025 
11151020 T 0025 



FOR I * STEP 1 UNTJL 20 DO STRM C 1 3 * I ; 



11151030 T 0029 



CSS OEMP,STRM*A,6#OD)i 

FOR I » 1 STEP 1 UNTIL 19 pO ANSgj » STRMyj; 



11151040 T 0033 
11151050 T 0037 



CVN ♦■ 17; 



11151060 T 0042 



PNO ♦• 115* 
VERIFY ; 



11151070 T 0043 
11151080 T 0043 



END PliJ J 



11151090 T 0044 



PRCCF.DURE PI 16/ COMMENT 5 , 12 . 1 3 ,4 SOURCE COMPARE WITH LITERAL/ 



255 T S 49 LONG* NEXT S£G 10 
H160010 T Oi74 



BEGIN 



11160020 T 0174 



STREAM PROCEDURE CHECKSORCELlTdNARAY); 



11160030 t °174 
START 8F SEGMENT ********** g56 



BEGIN 



11160040 T 0000 



local p# a; 



11160050 T 0000 



>r 



13 

14 



15 
16 
17 
18 



19 

20 



21 
22 
23 
24 
25 
26 



27 
28 



29 

30 



31 
32 
33 
34 
35 
36 
37 " 



38 
39 



40 
41 
42 
43 ~ 



45 
46 
47 
48 



49 
50 



51 
52 
53 
54 
55 
56 
V 



LABEL A' B> C> D, fc' F* G> H> NED; 



DI* LOC P; OS* 8 LIT "19AZ* i n } 

01 + UOC O; PS* 7 LIT "0* C)/+ w ; QS»i LIT www ; 



01* INARaY; Ul*Dl+7; 



■.si* 'LOC p; ...: . " ' 

IF SC g "1" THEN BEGIN pS*l LIT "l"i DI*Ql+7; 



si*si+2 end; if toggle then go to a; go to neu; 



A* IF SC > "♦« ThEN BEGIN OS* 1 LIT "2"; Dl+Dl+7; 

sj*si * j fno; i£ togglf thfn go to hi go to Ned; 



IF SC < "*"' THEN BEGIN DS* 1 LP "3"J Dl*Dl+7; 



si*si+i end; if toggle then go to c; go to ned; 

C» IF SC i w w THEN BEGIN pS* 1 LIT "4"; Dl*0I+7; 



SI*SI+1 END/ IF TOGGLE THEN GO To D* GO TU NED; 



"01 IF SC* " M THEN BEGIN DS* 1 LIT "b»i DI*Dl*7 JEn'OY 
SI+LOC Of IF TOGGLE THEN GO TO £_j GO TO NED; 



EJ IF Sc* "♦" ThEN BEGIN DS* 1 LIT "6"; DI*Dl + 7; 



SWSI+1 END; IF TOGGLE THEN GO TO Fl GO TO NED; 
F: IF S C s"," THE n BEGIN pS»l LIT "7"; 0I*pI+7; 



Sl*Sl+6 END; IF TOGGLE THEN GO TO G; GO TO NED; 



"SI II- SC * """ THEN BEGIN DS*l LtT "7";dU0i*7 ENqT" 
IF TOGGLE THEN GO TO Hj GO TO NEDl 



Hi IF SC S ,, " ,, THEN 2(IF SC« """ THEN ^C IF SC>"0" tH£N 

JUMP OUT 2 TO NED); JF TOGGLE THEN 
JUMP QUT TQ ned; DS*1 LIT m 1"; 



Dl*DI+7); 



ned; end; 
checksqrcelitc tempi 13)/ 



FILL ANS[*3 WITH \» 2, 3* 4> 5* 6> 7* 1* \l 



1H60550 y 0000 



1U6006Q T 0000 
1U6QQ7Q T 0001 



11160080 T 0003 



11U0090 T 0004 
IU6O1OO T 0004 



11160110 T 0006 



11160120 T 0007 
11 4601 30 T 0008 



11160140 T 0Q09 



11160150 T OOll 
11160160 T 0012 



11160170 T 0014 



UI6O18O T 0015 
U160190 T 0017 



11160200 T 0018 



11160210 T 0020 
11160220 T 0021 



11160230 T 0023 



111602*0 .T 0024 
11160250 T 0026 



11160260 T 0027 



U160270 T 0031 
11160280 T 0032 



11160290 T 0033 



11160300 y 0033 
11160310 T 0034 



1 1 160320 T 0037 



START OF SEGMENT ********** 257 
25? T S 9 LONG, NEXT SgG 256 



2< 

3 

4 

5< 

6 

7 

8< 

9 

10 

11 \ 



57J 



h 



PNQ«-H6J 



11160340 T 0040 



VERIFY 



ENDi 



11160350 T 0040 
11160360 T 0Q4Q 



256 jS «2 LONG, NEXT 5EG 10 



PROCEDURE Pi 17> COMMENT STREAM SOURCE AND DESTINATION COMPARE. 
5.12.13,5 JUNE 24 1V63; 



11170010 T 0i74 
11170020 T 0|7a 



10 

11 

12 

13 
14 
115 



BEGIN 



1H70Q30 T 0174 



LABEL DAB; 



111700-35 T 0l74 
START OF SEGMFNT »»»»»«*♦*» 



358 



h7 

18 



20 
21 



22 
23 
24 
25 
26 
27 



28 
29 



30 

31 

32 

33 

34 

35 

36 

37" 

38 

39 



40 
41 
42 
43 



M 
45 



46 
47 
(8 
*9 
50 
51 



52 
53 



54 
55 
56 



INTEGER It 
STREAM PROCEDURE SORcEOEST INCOMP aREC aRaY WT> ARAYIN25* S1XTY4T 
ARAYIN15* ARAYINEND?] 



1H70Q4Q T 0000 



11170050 T 0000 
11170060 T 0000 



VALUE 



SIXTY**; 



1H70070 T 0000 



BEGIN 



LOCAL o> r; 



11170080 T 0000 
11170090 T 0000 



LABEL A, B# C f D* E, BAD; 

Di>AKAYINl ; U5*20 LIT " ABCD4444 I JKLMNQPCiRST" ; 



11170100 T 0000 



DS»20 LIT "«9/+-0,,£s 



"} 



11170H0 T 0000 
11170120 T 0003 



CS«-20 LIT "1234567891 



DS + 20 LIT " 
QS + 20 LIT " 



11170130 T 0005 
11170140 T OOOT 
11170150 T 0011 



D S ♦. 2 LIT " ********************"; 



11170160 T 0014 



DS*20 LIT "ABCDEFGHIJKLMNOPQRST"; 

oi+LQC r;si»loc arayinend; ds»i wds; si»arayinu 



oi*LOC q; ds*8 lit "abcd<u44"; dUloc y; 

IF 8 Sc«DC THEN BEGIN DI*Ri Sl«-SI-8j qS + 8 CHR t~ 

si»si«e; r»qi end; if toggle th en go t o a; 



11170170 T 0016 
11170180 t 0019 



11170190 T °020 



11170200 T 0022 
11170210 T 0024 



gc to bad; 

"AT QiHOC 0; D3*8 LIT "AAC04444"; DIALOG Qi 
If 4 SC*OC THEN BEGIN TALLY-OI DI»Ri D$»0 QCT* 



11170220 T 0025 
11170230 T ff0l5~ 
11170240 T 0027 



R«-Cl END; IF TOGGLE THEN qO TO B; GG TO BAQ; 



U170?50 T 0029 



56 1 

57 



h 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
IS 



19 
20 
21 
22 
23 
24 
25 
26 

«."■ 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 



40 
41 
42 
43 
44 
45 
46 
47 
48 



49 
50 
51 
52 
53 
54 



55 
56 



bi dwloc q; DS*e lit **9/»-o.,"; di«-luc q; susi + 12; 



IF 4 Sc > DC THEN BEGIN IF 4 Sc i DC THEN BEGIN 
OUR; 0S»6 CHR ; R»DI END END; IF TOGGLE _ 



THEN GO TO c; GO TO BAD; 



CI SUSI + 4; DULUC Q; DS*8 LIT W A8CD5678 M ; DULQC 8; 
IF ft SC< DC THEN GO TO DJ IF TOGGLE THEN GQ TO 



bad; 



Dl If 4SCS DC THEN BEGIN OUR; DS*2 OCT; R*Dl EnO; 
IF TOGGLE THEN GQ TO E; GO TO BAD) 



EJ DUARAYIN15; SuSl + lO; 



IF SIXTYft SC > DC THEN GO TQ BAD; IF TOGGLE THEN 

go to bad; oi»r; os»e chr ; r»di; 



DIALOG q; QS*b LIT "Q"J DULQC Qi 



If SC * DC THEN GO To BAD; IF TOGGLE ThEN GQ Tq BAD) 

our; dudi+4; qs»4 chr ; r»di; 



DULOC fa; 

IF Sc a DC THEN BEGIN DURI DUDI + l; DS*3~cHrT 



END; IF TOGGLE THEN GO TO BAD; DI»RJ 



dudi"b; ds«-3 lit"a"; 



BAD: ENO; 
S0RCEDESTINC0WPARe(TeMPH3» TEMPC253#63»TEMP[I53* TEMP[ftftJ U_ 



11170260 T 0030 



11170270 T 0033 
11170380 t 0034 



11170285 T 0035 



11170290 T 0036 
11170300 t 0039 



11170310 T 0040 
11170320 T OTOT 

11-170330 t 0042 



11170340 T 0043 



11170350 T 0044 
1U7036Q T 0045 



11170370 T 0046 



11170380 T 0048 
U17Q390 T 0Q4g 



U170ftOO T 0050 
11170410 T C 7 05T 



1U7-042Q T QQ52 



11170425 T 0053 



11170430. T 0054 
11170440 T 0055 



DAB ! FOR 1*44 STEP 1 UNTIL ^ Q DO TEMPC 1-43 ]*TEMP[ I j; 
FILL ANS U3WITH 0CT2 122232404040404* 0CT10534* 



U170450 T 0062 

UI7O46O T 0061 

START OF SEGMENT »*«»**»»»* 259 



0CTl757606060606060f QCT133, 
0CT242526 27303 14 142» OCT 4445464 7* 
OCT0050516200000000; 



11170470 T 0070 



11170480 T 0070 
11170485 T 0070 



CVN*7; 

pnomi/j 



259 T S 7 LONG, NEXT SEG 258 

11170490 T 0070 
11170500 T 0070 



VERIFY 



11170510 T 0071 



3 

4 
si 

6 
7 



561' 
57 



• • 



>r 



end; 



11170520 t 0071 



PROCEDURE: PUS; COMMENT STREAM PROCEDURE SOURCE BIT 5.12»13.6 KMti 



258 T S 75 LONG. NEXT SEG 10 
U180010 T 0174 



BEGIN 



11180020 T 0174 



STREAM gROCEDURE SBCHEC« CUjK >; 



11180030 T 0174 
START OF SEGMENT ********** 260 



10 

11 



BEGIN 



11180040 T 0000 



13 
14 

16 
16 
17 
IB 



LOCAL Q# R, F# E, D» C> B» A; 
LABEL Ll* L2» L3J 



11180045 7 0000 

11180046 T 0000 



01"* LUC R; OS «■ 8 LIT "AABBCCDH"; 7 A LLY «■ 0; 



11180060 T 0000 



19 
20 



01 * LOC Q; DS ♦ 8 LIT 

SI ♦ lqc o; 



"ABCDEFGH"; 



11180070 T 0001 
11180080 T 0003 



22 
23 
24 

26 



COMMENT SB IS 0; 



1118009C T 0003 



IF SB THEN BEGIN A*TALLY; GO TO LI END* 
TALLY*2i A* TALLY/ 



11180100 t 0003 
11180110 T 0005 



28 
29 



30 

31* 

32 



li» skip 5. sb; duloc r; tally*o; 



11180120 T 0005 



COMMENT "SB IS ' l; '"; . ' 

If SB THEN BEGIN TALLY+TALLY+3J B»TALLYJ GO TO L2 



11180130 T 0006 
11180140 T 0006 



34 
35 



END; IF TOGGLE THEN BEGIN DS«-3 CHRj T aLLY«-T A LLY + 2 END; 



11180150 T 0008 



37 
38 
39 



L2» SKIP 2 SBi TALLY * 0) 
COMMENT SB IS i; 



11180160 T 0009 
U18017Q T 0010 



40 

41 
42 



If Sb THEN BEGIN IF 3 SC*DC THEN BEGIN C«-T A l-LY 



11180180 T 0010 



END; IF SO "F" THEN TALLY+TALLY+4 END; TALLY*TALLY 

♦ i; c*tally; 



45 
46 
47 
48 



11180190 t O^^ - 

liieoaoo t Q013 



TALLY «• 0/ 



11180210 T 0014 



•9 
50 



SKIP 6 SB* 



COMMENT SB IS 0; 



11180215 T 0014 
11180220 T 0014 



52 
53 



54 
55 
56 
57 



IF SB ThEN BEGIN D«-TALL Y ; GO TO 1.3 END* 



11180230 T 0014 



8CGIN SKIP 2 SB; TALtY*TALLY*6J D*TALLY END; 

- 'J 

L3? SKIP 1 SB; TALLY»Qi 



U180240 T 0016 
L L ififilM-J OQ U 



COMMENT SB IS i; 



11180270 T 0017 



• • 



n 

2 
3 
4 
5 
6 
7 
8 
9 
10 



11 
12 
13 
14 



15 
16 
17 
IB 

19 
20 



21 
22 



23 
24 
25 
26 



27 
28 



29 

30 



31 
32 



33 
34 
35 
36 



37 
38 
39 
40 
41 
42 
43 
44 
45 
«6 



47 
•8 



♦9 
50 



51 
52 
53 
54 



55 
56 



U SB THIN BEGIN 8CTALLY «- TALLY+7; IF *>B THEN 



JUMP OUT) END* E*TALU; 
TALLY* 0; 



COMMENT SB IS l; 



IF SB THEN BEGIN IF SC * M H" THEN BEGIN SI*LOC Q 
i DULOC R; IF l SC m DC THEN TALLY t-TALLY + 8 END 



END> TALL*«-TALLY + i; F ♦- TALLY; 



SULOC a; DUUJKi DS* 6 wds; 
end; 



SBCHECK(TEMP[1]); 



FILL ANSC*i KITH 0CT2* UCT3* 0CT5# QCT6* QCT7* 0CT1U 



U80280 T 0017 



1180290 T 0019 
1180300 T 0021 



1180310 T 0021 



1180320 t °92l 
1180330 T 0023 



1180340 T 0024 



1180345 t 0025 
1180350 T 0026 



1180360 T 0026 



H80370 T 0030 
STAR T 8F S EGM£NT ********** 261 



261 T S 



6 LONG, NEXT SEG 260 



CVN«-6> 
PNO «• 118) 



VERIFY 



end; 



260 T S 



PROCEDURE Pn9i COMMENT STR PRLC TOGGLE STATEMENT 5-12-13.7 KM.; 



BEGIN 



INTEGER ONE' TwO, 2fc.R0, b JXi 



START 0F 



STREAM PROCEDURE TE STTQGGLEl ARAYIN* INARAY>QNE#2ERQ, TwO# SI X )i 



VALUE ONE> ZERO, TWO* SJX; 
BEGIN LABEL Ll# EXITRIN* L2* L3J 



LOCAL A,B*C; 



lALLY«-0; 

D1«-L0C a; DS«-8 LIT "A"; 



SI <* LOC A,* 

IF Sc* "A H THEN G U TO Lli — COMMEN T S £ T T CGgLe TRUE; 



1180380 T 0032 
1180390 T 0033 



1180400 T 0034 



1180410 T 0034 
35 LONG, NEXT S E G 10 



1190010 T 0174 



1190020 T 0174 



1190030 T 0174 
SEGMENT ********** 262 



H90Q40 T 0000 



1190050 T 0000 
1190060 T 0000 



U90070 T 0000 



1190080 T 0000 
1190090 T 0000 



1190100 T OQOl 



2< 

3 
4 
5< 

6 

7 

8< 

9 

10 

n< 

12 

13 

,4< 

15 

16 

17 < 

18 

19 

20 \ 

21 

22 

23 f 

24 

25 

26 % 

27 

28 

29 % 

30 



31 

32 

33 

34 

35 I 

36 

37 

38 1 

39 

40 

41 

42 

43 

44 ' 

46 



46 

47 

48 

49 

50 ! 

51 

52 

53' 

54 

55 

56 I 

5} 



1190110 T 0002 



h 



go tc exitrin; comment toggle was not set true; 



oi * inaray; 

LH IF TOGGLE THEN PI » ARAYINJ 



IF TOGGLE THEN 01 * Dl + 7; 



IF TOGGLE THEN 3JH0C A;. 
IF TOGGLE THEN B*DI; 



IF TOGGLE THEN DS«-1 CHR; Sl + Sl-1; 



IF TOGGLE THEN DS* ONE WQS; SI*Si»3J 
IF TOGGLE THEN DS* ONE OCTJ 



IF TOGGLE THEN PS*2 ADD; COMMENT TOGGLE IS FALH; 



IF TOGGLE THEN GO TO EXITRIn; SI«.Sl-3; 
IF SCa"A" THEN GO TO L2 i GO TO EXITRINJ 



L2S COMMENT TOGGLE IS TRUE; DI * DI+4; 
IF TOGGLE THEN DS * TWO ZQN; 
IF TOGGLE THEN OS* 8 LIT "B"; 



IF TOGGLE THEN SKIP 42 OB; 



IF TOGGLE THEN OS «• Six SET; 

IF TOGGLE THEN 6 ( TALLY+TALLY+ 1 ) ; 

C'TALLY; Sl*LOc c; DS*1 WDS; Sl*lOc a; 



IF 8 SC « DC THEN TALLY*0; " 

IF TOGGLE THEN GQ TO EjOTRlNj 

C*-lALLY; SIALIC c; DS «- 1 WQS; Si*LUC A* 



IV SB THEN GO TO EXITRINJ 



IF TOGGLE THEN GO TO EXITRIN; IF SC» "A" THEN GQ TO 



l3;go to exithin; 



L^J IF TOGGLE THEN BEGIN 3C IF SC«"E» THEN BEGIN IF 
TOGGLE THEN JUMP OUT END' IF TOGGLE THEN TALLY *-Ji 



jump out) end; c«-tally; si*loc c; ds*i wdsj 



EXITRINI END1 " ~ 

QNC, » %i TWO » 2J Six ♦ ti ZERO ♦ 0; 



Tfc ST TOGGLE C TEMP [ 1 J , TEMP [ 22 3 * ONE, ZERO* TWO* Si X ) ; 



11190120 T 0002 



11190130 T 0003 
11190140 T 0003 



11190150 T 0004 



11190160 T 0005 
11190170 T OOPS 



11190180 T 0006 



11190190 T 0006 
lllQQgQn y OfiflT 



11190210 T 0008 



11190220 T 0009 
11190330 T 0000 



11190240 T 0010 



11190250 T 0011 
11190260 T 0012 



11190270 T 0013 



11190280 t 0014 
11190290 T 0014 



11190300 T 0016 



11190310 T 0017 
11190320 T 0018 



11190330 T 0C18 



11190340 t 0019 
11190350 T 0020 



11J90360 T 0021 



11190370 t 0021 
11190380 T 0024 



11190390 T 0025 



11190400 T 0026 
11190410 T 0027 



r 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 I 

12 

13 

Ml 

15 

16 

17 I 

18 

19 

20 ( 

21 

22 

23 ( 

24 

25 

26 ( 

27 

28 

29 ( 

30 

31 

32 ( 

33 

34 

35 ( 

36 

37 

38 \ 

39 

40 

41 i 

42 

43 

44 % 

45 

46 

47 i 

48 

49 

50 f 

61 

52 

53 4 

54 

55 

564 

5? 



• 
• 



11190420 T 0031 



h 



1 

2 
3 
4 
5 
6 
1 
8 
9 
10 
11 



12 
13 

1* 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 



25 
26 



n _ 

Z8 



E 

O 

Q 

2 
Q 



29 

30 



31 
32 



33 
34 
35 
36 



37 
38 



40 
41 
42 
43 



44 
45 
46 
47 
48 



49 

50 



51 
52 
53 

54 



55 
56 



11190430 T 0036 



FILL ANS[*3 WITH 0CT21* 0CT212121212121212 1 » OCTl* 



11190440 T 0036 
START OF SEGMENT ********** 263 



DC TO 10 100000000 2020* OCT 2222222222222222' 



11190450 T 0037 



0CT77, O'CTlOt QCTQ, 0CT10* QCTlO; 



_£6J_ 



11190460 T 0037 
10 LONG* NEXT Sg G 262 



cvn+io; 



11190470 T 0037 



PN0M19J 
VERIFY 



11190480 T 0038 
11190490 T 0039 



end; 



11190500 T 0039 



PROCEDURE P12QJ COMMENT STREAM PROCEDURE SOURCE FpR A^PHA TEST 



262 T S «2 LONG, NEXT SEG 10 
11200010 T 0174 



5.12.13,8' FEb 6,1963 KM.; 



11200020 t 0j74 



BEGIN 



5T8EAH PROCEDURE TLSTALPHAC ARAYlN )J 



11200030 T 0174 
11200040 T Ql?4 



START 8F SEGMENT ********** 264 



8LGIN 



local a; 



11200050 T 0000 
11200060 T 0000 



LABEL L1>L2'L3*L4; 

di«-loc a; us*e lit "abcmcs*"; taut+o; 



SI*L0C Ai oi ♦ arayin; 



11200070 T 0000 

iizoooao t — owir 
ugopojo T 0001 



IF SC- ALPHA THEN BEGIN IF TOGGLE THEN qS+U LiT 



11200100 T 0002 



"A"; DS*B LIT«B«; GO TO Ll END* IF TOGGLE JHEN 
DS «• 8 LIT »C" ; DS ■'♦> 8 LIT »D M ; 



11200110 T 0003 
11200120 T 0006 



Lli Sl*SI+3J 



11200130 T 0009 



IF SC* ALPHA THEN BEGIN IF TOGGLE THEN 05*8 LIT 
"A"; 0S»6 LIT "B"J GO TO L2 END; IF TOGGLE T*EN 



1 12001 40 T 0009 
U200150 T OOlO 



DS <- 8 LIT «C n ) DS«-8 LIT "D"* 



11200160 T 0013 



X21 51* sr*3i 



IF SC«ALPHA THEN BEGIN IF TOGGLE THEN 0S*8 LIT 



11200170 T 0016" 
11200180 T 0016 



A";DS«-a litb"; go to l3 end; if toggle then 



11200190 t 0017 



h 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



16 
17 



19 

20 



21 
22 



23 
24 



25 
26 
27 
28 
29 
30 
31 
32 
33 



34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 



43 



45 
46 
47 
48 
49 
50 
51 



52 
53 



54 
55 



56 
P7 



DS*8 LIT "C"; DS+8 LIT M D"; 



11200200 T 0020 



L3» si*si*jl; 

IF SOALFHA THEN BEGIN IF TOGGLE THEN QS»8 



11200210 T 0023 
U 2QQ22Q T On23 



LIT"A"; LS«-8 LIT"B"; GO TO 14 END* IF TOGGLE 



11200230 T 0024 



THEN DS*8 LIT w C w ;DS*8 LIT "D"* 

±£l EN£i 



11200240 T 0027 
1120 ?5Q T 003Q 



TESTALPHAUEMP[1])> 



H200260 T 0030 



FILL ANS[*3 WITH 0CT212 12121212 1212 t, 00T2222222222222222* 



U200270 T 0033 
START SF SEGMENT ********** 265 



DC T24 2^ 242424242424 r 0CT2 12 1212 12 12 12 12 1 > 



11200280 y 0034 



OCT 2222222222222222' OCT 24 24 24 24 24 24 24 24' 



CVN«-6/ 



11200 2 85 T 0034 

-2Ai_li 6 I ONG, NEXT SFG 264 

U200290 J 0034 



PNO * 120; 
VERIFY 



11200300 T 0035 
U2QQ31Q T 0036 



END' 



11200310 T 0036 



PftQCEOURE P121/C0MWENT FOR STATEMENT MULTIPLE LIST ELEMENTS) 



BEGIN 



264 T S 37 LONG, NEXT SEG 10 

U21001Q T 0174 

H210020 T 0l?4 



REAL 



E'F»C; 



11210030 T 0174 
START OF SEGMENT ********** 266 



INTEGER D'G'HJ 



H210Q35 T 0000 



BOOLEAN A*BJ 

INTEGER PBQCEPfRE SEVEN (FML)i 



U21Q04Q t 0000 
11210Q50 T 0000 



INTEGER FML; 



U210060 T 0000 



BEGIN SEVEN* FML MOD (FML*5) END* 

E» 15,5; F» 7,5* C» 2.QJ A» TRUE* B* FALSE i 0* 2732 i 



11210070 t 0000 
11210060 T 0004 



G«- 2; h«- 4; 



11210090 T 0009 



TEMPtlJ* lbJ TEMPC2U 3* 

FOR C» TeMP[i3» TEMPC23' SeVEN( 10)»"A8 W 4 W A"» 5 pQ BEGIN 



11210100 T Ooll 
U210U0 T 0014 



G*- G+l; TEMHCG3* C + b END; 



11210120 T 0026 



T< 



47 < 

48 

49 

50 I 

51 

52 

53 ( 

54 

55 

56 t 

57 



• • 



>T 



i 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



13 

14 

15 

16 

17 

18 

19 ~ 

20 

21 

22 

23 

24 



25 
26 



27 
28 



29 
»0 

31 " 



33 

34 
35 



36 

37 ~ 

38 

39 

40 

41 

42 

«3 



«5 
46 
»7 
«8 



49 
50 



51 
52 
53 
54 



55 
56 



FOR C 



F"E. + 16 STEP 1 UNTIL SEVEN (9). 



1 12101 iC T 0036 



D.t««i23 ♦ D.£40i3] STEP D,C45j13 

UNTIL T£MP[13*6> SEVEN(6><»2 STEP "AB W MOO "A" UNTIL "A" > 8 * 



H2t0l40 T OOftl 
11210150 T 0045 



15 STEP 3 UNTIL 



U210160 T 0059 



20 00 BEGIN G* G+iJ TEMP JG'3> C ENOJ 

FOR C± F»E STEP (»F) WHILE G< 16> SEVENC2? * C») 



U210170 T 0061 
11210180 T 0068 



WHILE A UB B, 8 



11210190 T 0075 



STEPCF) UNTIL - (SEVEN(OJ) DO BEGIN G* G*U H* H*i> 
A» BOOL£AN(H t [ft5;i3)j ______ 



H210200 T 0078 
11210210 T 0087 



TEMPCli]* SEVEN CC) END/ 



U210220 T 0089 



FILL ANS £*J WjTH OcU7* Q C T3* QcT27, Q C Tl7* C T2l50, 



11210230 T 0092 
START BF SEGMENT ********** 267 



QCT12* OCTlo* 0CT11, 



0CT10# QCT1 1 * 



112102^0 T 0093 



OcTl-0* OCTli* .0<*Ti7# QcT22» OcT20000000000O0002' 
QCT20000000Q0000005* QCT20000000000Q0002* 



11210250 T 0093 
11210260 T 0093 



0CT2000000000000002' QCTlO< 



H210270 T 0093 



0CT1J 



11210280 T 0093 
2<>7 T S 20 LONG, NEXT SEG 266 



CVN<- 20 i 



H210290 T 0093 



PNO* 121 # 
VERIFY 



11210300 T 009<i 
11210310 T 0095 



END 



11210320 T 0095 



PROCEDURE Pj22^ COMMENT PRECEDENCE OF LOGICAL OPERATORS EK 



266 t s 100 LONG, NEXT »EG 10" 
U220010 T 0l74 



29 NOV 62/ 



11220020 T 0174 



BEGIN 



INTEGER X1#X2,X3,X4; 



11 220030 T ST7T 
1 1220040 T Ol7a 



START OF SEGMENT ********** 268 



BOOLEAN A1>A2»A3*A4,A5»A6/A7J 
XI «• X2 » \> 



11220050 T 0000 
11220Q60 T 0000 



x 4 «■ 4 ; 



U220080 T 0002 



^ AX «• A2 * A3 «. A4 *- TRUE; 

2 

3 A5 «• A6 «- A? * FALSE; 


11220090 
11220100 


T 

T 


0002 

2 

0005 3 


4 

s If NOT X1*X2 THEN TEMPI134-7 ELSE TEMP[13*5; 

6 


11220110 


T 


4 
0006 s 

6 


•' IF X4>X1 + X2*X3 THEN T£MP[2J> 5 ELSE TEMP£23 ♦ 7i 

9 IF Al OR A5 AND A6 THEN T£MPt33 * 7 ELSE TEMPC3J * 5i 


11220120 
11220130 


T 

T 


0012 7 

8 

0018 ' 


10 

11 IF Al EdV Ab IMP A2 OR A6 AND Ab THEN TEMP[43*7 ELSE TEMpE4j*-5 

12 


; H22014G 


T 


10 

0024 » 

12 


'3 IF A6 E«V Ab AND A2 THEN TEMPC53+ 7 ELSE TEMP£5] ♦ 5} 

14 ' 

is IF Xft < X3 EOV Xicx2 IMP A l THEN T£MP[63* 5 ELSE T£MP£63«- 7J 


U220150 
11220160 


T 
T 


00*0 13 

14 

0037 15 


16 

17 

IF Al IMP Ab' IMP A6 ThtN TEMPC73 «- 7 FLSf TEMP [7] *■ 5; 


1 1 220i 70 


T 


16 
17 

0044 18 


19 

20 . IF X1«X2 OR NOT X1*X3 AND Ab IMP A6 EQV A5 OR x4>Xl+x2+X3 AND 

21 


11220180 


T 


19 

005 1 20 

21 


22 NOT A5 IMP Aa AND Xl^X? THEN TEMP[8] *■ b ELSE TEMP[83 «- ti 

23 

24 IF X4<x3 EfiV NOT Al IMP X1*X2 OR NOT X3>X4 THEN TEmP [93 * 5 


U220i90 
H220200 


7 
T 


0056 22 

23 
0064 24 


25 

» ELSE TLMPtV] «• 7; 

27 


H220210 


T 


25 

0069 26 

27 


28 IF NOT A5 UK X4<X1+X2 I M ^ A5 E^V Xl*X2 IMP NOT X4<X1 AND Ag 

29 

jo THEN TEMPC10J «- 5 ElSe TEMPClO] «■ 7} 


11220220 
11220230 


T 
T 


007 2 28 

29 

00 7 7 30 


31 

32 IF NOT X4>xl EQV X4>xl AND A5 IMP N0TU1 OR Ab) 7HEN TEMplll] 
33 


11220240 


T 


31 

00 8 3 32 

33 


» *5 ELSE TEMP [ 113 4- 7) 
35 

36 IF Ab E8V X4>X1+X2 OR Al ImP FALSE THEN TEMPU23 * 7 £L S E 


11220250 
11220260 


T 
T 


0087 34 

35 
0091 36 


37 

38 TEMPC12]* b; 
39 


11220270 


T 


37 

0096 38 

39 


« IF A4 OR Ai AND Ab AND NOT C A 1 OR A5 AND A6 IMP X4<Xp ThEN 

41 

42 TpMPtj^i *■ 7 Fl sf TfMPfm ♦• b# 


11220280 
1 1??0?90 


T 

T 


0098 « 

41 

010? 42 


• 3 . '-■:■-'■ 

« IF NOT Al E«V X4«Xi OR (Al AND TRUE) AND A6 OH FALSE THEN 

45 . ■ . 


11220300 


T 


43 

0l07 44 

45 


« TEMPC143 * 7 ELSE TEMPC14J* b; 

47 

« FILL AnS[*J WITH QcT7# UcT'7* CCT7> QCT7* 0CT7> 0CT7* OCT?' 


11220310 
11220320 


T 
T 


ono « 

47 

0U5 « 


49 

50 
51 


START OF SEGMENT 


49 
********** 269. *> 

51 


52 0CT7»0CT7» 0CT7* QCT7# 0CT7, 0CT7# 0CT7; 

53 

54 


11220330 T 
269 T S 14 LONG, 


1 1 6 62 

53 

NEXT SeG 268 54 


55 

" CVN * 14J 


11220340 


T 


55 

0116 56 



PNO * 122; 



11220350 T 0117 



m • 



>r 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 



16 

17 
IB 
19 



20 
21 



22 
23 



24 
25 



26 
27 
28 
29 
30 



32 
33 

34 
35 
36 

37 ~ 

38 

39 

40 

41 

42 

43 ~ 



45 
46 
47 
« 



49 
50 



51 
52 
53 
54 



55 
56 



*z_ 



VERIFY 



11220360 T One 



END* 



PROCEDURE P123; COMMENT GO TC STATEMENT (PROCEDURE) EK 20 DEC 62; 



U220370 T 0U8 
268 T S 1?^ unM6> NFXT §E6 UL 



11230010 T Oi?A 



BEGIN 



LABEL U2* LLP* LL> l> LQ3, L02J 



11230020 T Oi?a 
11230030 T 0174 



START OF SEGMENT ********** 270 



INTEGER I>J*K#5UM,B#C#a; 

BOOLEAN T> T2»T3»T«*T5»T6»T7*T8>TEST; 



H230Q4Q T 0000 
11230050 T 0000 



PR6CEDU8E PHlC I/J,K,SUM,B,CVA,T/T2>T3/T4>t5,T7#tEsT, 



112300 6 T 0000 



L02, L03> LLP* L>7 
INTEGER I*U*K,SUM,B#C,Aj 



11230061 T 0000 
11230063 T 0000 



BOOLEAN T » T2> To' U> T5' T7# TEST; 



1123006b T 0000 



label lq2, l03# llp* l; 

BEGIN LABEL LjJ 



U230067 T 0000 
11230068 T 0000 



START OF SEGMENT ********** 271 



Lit BEGIN 



LABEL LL1*LL2»LL3»LL4,L2jLL5»LLNjL1»L3jLM5 »LL6; 



11230070 T 0000 
U23Q0 8 Q T 0000 



START OF SEGMENT ********** 272 



IF TEST THEN GO TO LL1I 
LL2< IF T THEN GO TO L2; 



11230090 T 0000 
11230100 T 0001 



LL3: I <- l + i; TEMPtll *■ l> 



11230HO T 0002 



GO TO IF I< 2 THEN LL2 ELS£ LL4, 
LL4t GO TO IF I<3 THEN LL2 ELSE LL5J 



11230120 T 0~OCT 
U23013Q t 0011 



LL5: IF I<4 THEN GO TO LL3/ 



11230140 T 0018 



GO TO L2> 



L2: IF j < 10 THEN GO TO IF SUM £ K THEN LMS 
ELSE L03 ELSE GO TO LL6i 
LM5» J * J+it ' 
4F T2 THEN GO TO jUPi 



11230150 T 0019 
U230160 T 0019 



H230i70 T 0022 



11230180 T 0026 
11230190 T 0027 



FOR C «• 1 STEP 1 UNTIL 10 DO SUm * SUM + j; 



11230200 T 0029 



45 

46 

47 

48 

49 

50 ' 

51 

52 

53* 

54 

55 

56 < 

57 



GU TO lH 


1123O2J0 T G035 


J 


' LL6: BEGIN 

2 

3 LABEL LNN#LTN#LTT; 


11230220 T 0035 
11230230 T 0036 


2 
3 


4 
5 
6 


START OF SEGMENT ********** 


4 

273 5 

6 


REAL DBSUMi 

8 

9 IF T3 THFN GD LNNJ 


11230235 T 0000 
H"02«0 T OOQO 


7 
8 
9 


10 

11 DbSUM *■ SUM + SUM } 

12 


11230250 T 0001 


10 
11 
12 


13 TEMPEB3- * OBSUM; GO TO LTT> 

14 

jis LNN* TEMPCBJ * "BYPASS"; 


11230260 t 0002 
U230270 T 0004 


13 

14 
15 


16 

" IF T4 THEN GO TO LTN I 

18 


11230280 T 0006 


16 
17 
18 


" 9 LTTI GO TO L3; 

20 

" LTN J 


11230290 T 0007 
11230300 T 0010 


19 
20 
21 


22 

23 end; 

24 


11230310 T 0011 - 


22 
23 
24 


29 
26 

" L3 8 BEGIN 


273 T S 13 LONG, NEXT $EG 
11230320 T 0037 


27 2 « 

26 
27 


28 

29 INTEGER XI* 

30 


11230330 T 0037 


28 
29 
30 


31 
32 

» IF 17 THEN GO TO I) 


START 0F SEGMENT ********** 
11230340 T 0000 


274 31 

32 
33 


34 

35 xi «■ a; 

36 


11230350 t 0002 


34 
35 
36 


37 IF T5 THEN GO TO LLN; 

38 

39 TEMPtxu * a; 


11230360 T 0002 
11230370 T 0006 


37 
38 
39 


40 

41 go to lln; 

42 


11230380 T 0008 


40 
41 
42 


«■ ■ . '''..END!'' 

44 i 

45 


U230390 T 0010 
274 T S 12 LONG, NEXT SfG 


43 
44 

272 « 


46 

♦ 7 LLll TEMPCft] «- M TST M ; 

48 


11230400 T 0038 


46 
47 

48 


*, GO TO LQ2; 

51 . :; .:,;; ... . LLN J 


11230410 T 0039 
11230420 T 00«1 


49 
50 
51 


52 
S3 

« end; end; 


11230430 T OOftl 


52 
53 
54 


55 

56 

P 


272 i$ 46 LONG, NEXT SEG 


■ 55 

2? 1 ' '■'■"'■'■'■ 56 



271 T 5 



6 LONG, NEXT S£G 270 



• • 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



T3 ♦• t a «■ Tb *• true; b* ?; 



TEST * T * T2 v T7 «■ FALSE; 

I » U <- K <• SUM <• o; 



11230440 T 0000 



11230450 J 0002 
H230A60 T 0004 



PR 1(. 1* J#i**SUM#B»C»A»T»T?#T3#T4#T5»T7#TEST»L02#L0 3#LLP#L)i 



11230^70 T 000? 



tempe53 «• sum; 
test *■ true; 



U230480 T 0016 
11230490 T QOlfl 



HRl (I>J»K,buM r B»C» A*T#T2»T3»T«#T5*T7#TEST»L02#L0 3*i-LP#U)i 



U230500 T 0018 



13 

14 
IS 



L02» TEST ♦ T3 «> T5 ♦ FAISe; 

t » true; 



H230510 T 0028 
U230520 T 0029 



16 
17 
18 



B «• 8/ 



11230530 T 0030 



19 
20 



A *■ 9} 

PRl U>J>K»SUM,8»C#A,T»T2>T3>T<»#T5»T7#TEST,L02,L0 3>LLP>L}J 



11230540 T 0031 
11230550 T 0032 



22 
23 
24 
25 
28 
27 



TEMPC103 * "TEN"; 



K * 1022; 
J » 01 



1J230560 7 0041 



11230570 T 0043 
11230580 T 0043 



28 
29 



PRl (I>J*K>i>UM,B>C»A>T*T2*T3»T4>T5>T7#TEST,La2>La3>lLP#L); 



H230590 T 0044 



31 
32 
33 



L03* TEMPCUJ * «K300«; 

j » k «- o; 



11230600 j °053 
1123 610 T Q_Q5_5_ 



34 



38 



T2 *■ TRUE' 



PRl n,J,K,SUM,B,C,A,T,T2,T3,T4,T5,T7,TEST,LQ2,LU3,i.LP,L>; 



11230620 T 0057 



11230630 T 0057 



40 
41 



llps TeIFlTZ] 4. "12"; 

j ♦• 10; 



1 1230640 T 006T 
11230650 T 0068 



♦3 



T3 *■ T7 *■ TRUE; 



11230660 T 0069 



46 
47 
•8 



PRl (I»J,K#!>UM,B*C»A»T#T2#T3»T4#T5»T7#TeST,LU2#LU3*LLP*L>* 
L* "T'EMPt 13 3 «• "LUCKY"; 



11230670 T 5070" 
U230680 T 0080 



49 
50 
51 



FILL ANSc*} WITH OcTt* UcT2* 0<;T3# 0cT4> 0<;Tl44# 0gT636263# 



11230690 T 0081 



52 
53 
54 



55 
56 
57 



GCT 227047 2 16262* OCT 227047 2 16262' 



OCTll* 0GT632545* OCT42030000, 

'■'■■ „, ., „' ,. : , „ . l X „ ,., * * „ i ffi„ j j | ,ii i, 1 , mh i m ii, „ i i n h i m , !u! ..■■■■■■ ■ .,..,... - „„ 

0CT6302* 0CT4364234270; 



START OF SEGMENT ********** 275 
U230700 T 0083 

11230710 T 0083 



11230715 T 0083 



h 



275 T S 13 LONG, NEXT Sf.G 270 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 



CVN «- 131 
PN0 «• 123' 



11230720 T 0083 
U230730 T 0084 



VERIFY 



11230740 T 0085 



END* 



U230750 T 0085 
27Q T S 97 LONG. NEXT SgG 10 



PROCEDURE P124; COMMENT GCJ TO STATEMENT (SWITCHES) Ek 17 DEC 62; 



11240010 T Ol7fl 



13 

14 



BEGIN 



LABEL Ll»l2»L3»L4,L5,L6,L7»L8,L9,Ll0j>Lll,Ll2,Ll«»Ll5,Ll6.Ll7l 



112*0020 T Ol7« 
11240030 r 0l 74 



16 
17 
18 



START OF SEGMENT ********** 276 



19 

20 



21 



INTEGER X1»X2#Y1#Y2M*K#LJ 

SWITCH SH2 FORWARD ; 



11240040 T 0000 
11240046 T 0000 



22 
23 
24 
25 
26 
27 
28 
29 
30 



SWITCH SW3 FORWARD i 



11240047 T 0000 



SWITCH SW1 «• Ll'L2#L3»SW2[Yl]#SH2tY2 + 71»L6#L7#ti5J 
SWITCH SW2 * L3*L4,L5#SWltXl]'SWUX23#L8,L9»L16; 



11240050 T 0000 
U240060 T QQ25 



SWITCH SW3 «• Ll0# jF j«K THEN Lll ELSE L 12» SW3 [4] » SW i [X2 + 3 ] I 



11240070 T 0052 



31 
32 
33 



Yi *• 1J 

Y2 * yi; 



11240Q80 T 0072 
11240Q9Q t 0073 



34 
35 
36 

37 " 

38 

39 



XI «■ 7) 



11240100 T 0074 



X2 «- 5; 
I » K » 21 



11240H0 T 0075 
11240120 T 0075 



40 
41 
42 



GO TO SW 1 C 1 J ; 



11240130 T 0077 



45 
«6 
47 
M 



Lt* fEMPEt'3 ♦ II 



11240140 T 0079 



L2: GO TO IF Yi= 1 THEN SW1C3] ELSE L5; 

L3J TEMPL2] «■ 21 



H240150 t 0080 
U24016Q T 0086 



49 
50 



Yi*Yl+ll 



11240170 T 0087 



GO TO L2i 
L5» BEGIN 



52 
53 
54 

55 



11240180 T "0~089 
11240190 T 0089 



INTf&ER Xl#X2i 



U240200 T 0090 



START QF SEGMENT ********** 277 



52 
53 I 
54 
55 

56* 
5? 



ff 

2 



xi ♦• 4; 



X2 *■ 6; 

GU TC SH2CX13* 



11240210 T 0000 



11240220 T 0000 
U 240 23Q T 000 1 



end; 



l?i TEMPC33 * 3) 



11240240 T 0003 



277 T S 5 10NG* NEXT S£G 276 
11240250 t 0091 



10 
11 



GO TO SW2CX2+2J* 



11240260 T 0092 



13 

14 
15 



L9I TE!*PC4J * 4; 

L + O; 



U240270 T 0095 
11240280 T 0097 



16 
17 
18 

19 
20 
21 
22 



23 
24 



Ll4t l «• L*M 



GU TO SK3UU 

1.1Q» T EMP[53 «- 5 ; 



GO TO I..14/ 



11240290 T 0Q98 



11240300 T 0100 
1 a ?40 310 T 0lQ2 



U24Q32Q T Ql04. 



25 
26 
27 
28 
29 



Lll* TEMPC6.3 «• 6# 



11240330 T 0105 



30 



k «• k + i> 

go to sw3ll3; 



11240340 T Ol07 
11240350 T 0109 



31 

32 

33 

34 

35 

36 

37 " 

38 

39 



L12* TEMPCN *■ 7; 



GU TO L14; 

LIS* TEMP4B]4.8i 



GO TO switcxi«m; 



U240360 T Oltl 
U240370 T OTlT" 
U24038C T 0113 



U24Q39Q T 0115 



40 
41 
42 



L6: BEGIN 



INTEGER X2; 



11240400 T 0118 
H240410 T 0119 



START OF SEGMENT ********** 278 



46 
47 



X2 «■ 10; 
BEGIN 



H240420 T 0000 
U240430 T 0000 



49 

50 



51 
52 
53 



54 
55 

56 



INTEGER XU 



X2 ♦ 8; 



GO TO SW2CX2-31 



H240440 T 0000 



START OF SEGMENT ********** 2~71T 

U240450 T 0000 

112*0460 T 0000 



w 



112404^0 T 0001 



# • 



end; 



>r 



U24048Q T 0003 



279 T S 4 LONG, NEXT 3EG 278 
27 8 TS 3 I QM6. NExT Sffi P76 



7 

8 

9 

10 

11 

12 

13 

14 

fl5_ 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 



26 
27 
28 
29 



30 

31 " 



32 
33 



34 
35 



36 

37 " 



38 
39 
40 
41 
42 



43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 



55 
56 



ia: iH: L16 s Tempc9J*9; 



BEGIN 
LAHFI L A# LB>LC.; 



SWITCH SW4 * LA»LB*LC*Ll7! 
yi «■ 2 ; GO TO SW4CM3; 



LA: 



tevpcioJ * ; go to lc; 



LBJ TEMP[10J «• 10; 

LCI GO TO smuj end; 



L17J TEWPtllJ «• 111 
FILL ANSC'3 WITH QCT1, UCT2, 0CT3, 0CT4, QCT5, QCT6, QCT7, 



QCT10, QCTll, UCTt2,0CTl3! 



cvn *n; 



PNO * 1241 
VERIFY 



end; 



PROCEDURE P125I COMMENT 5.11,3.2 PROCEDURE BODY VARIATIONS! 



11240490 T Oi20 



H24049J T 0l2l 
HP4Q491 T Ol?l - 



START OF SEGMENT ********** 280 



1 1240492 T 0000 
11240494 T 0013 



H24Q495 T 0018 



U240496 T 0021 
Il240a97 T 002.1 



280 tS 3q LONG, NEXT 5EG 276 

H2**0498 T 0l23 

11240500 t 0124 

START OF SEGMENT ********** 281 

H240510 T 0i2o 

- 2 8 1 T S U L O NG, N E XT S E G 23J>- 

U240520 T 0126 



11240530 T 0127 
U240540 T 0128 



11240550 t 0128 



276 1 8 135 LONG* NEXT SEG 
11250010 T 0174 



10 



BEGIN 



U250020 T 0174 



LABEL Ll*L2i 



INTEGER I#jlBOOLEAN B! 



I ♦ 6U«-12I B* TRUE! 

COMMENT ASSIGNMENT STATEMENT! 



11250030 T 0174 

START BF SEGMENT ♦»*»«*»»»» 282 

U250040 T 0000 

11250050 T 0000 

11250070 T 0002 



TEMPtl] «• l! TEMPt2j4>TEMPt2]«.TEMPC2]«-I.[45ll]! 



H250080 T 0002 



• • 



TEMPC3J.C46I2 W; 



h 



1 

3 

4 

6 

7 

> a 

9 
10 

12 
13 

> M 
15 
16 

I 17 

18 

19 
I 20 

21 

22 

> 23 
24 
25 
26 
27 
28 
29 
30 

31 ~ 
32 
33 



34 

35 
36 

37 ~ 
38 



40- 
41 
42 
43 



45 

46 
I »7 

48 

49 
i SO 

61 

52 

53 

54 

55 

56 

5Zi 



H250090 T 0009 



BEGIN ~ 

INTEGER PROCEDURE. ARITH (I)j 



11250100 T 0012 
11250110 T 0012 



STAHT Of SEGMENT ********** g83 



INTEGER I) 
BEGIN 



11250U5 T 0000 
112510117 T 0000 



TEMPC4] » (I+6)-(*2/CI-5)'); ARITh * TEMPC4] £N ; 



H250U9 T 0000 



PROCEDURE BOOL CB); 
BOOLEAN B; 



11250120 t 0007 
1125012S t 0007 



BEGIN 



11250127 T 0007 



TEBPC53 * REALCB) END; 
PRQCEOURE GOTO; 



11250129 T 0007 

11250130 T 0010 



bt^IN LABEL Li/ ^0 TO LW LIS TEMP [ 7 ] 4.4 END; 



11250*40 T 0010 



PROCEDURE DLMkYiBEGlN'END; 



START OF SEGMgNT ********** 38 4 
2B4 T S 3 t.QNG* NEXT S F G 363 
U25015Q T 0010 



PROCEDURE CALLCD; INTEGER I; BEGIN TEMPC6J ♦ 1 + A R I TTTfTENbT 
CALL CI?; BOOL(B)i GOTO; DUMMY; 

end; 



11250160 T 0010 
11250170 T 0014 



1 1 250 1 80 T 0C18 



FILL ANS[*3 WITH OpTl* UcTl* 0QT3* 0cTl2* OQTl* 0CT13> 0cT4j 



283 T S 20 LONG, NEXT SfG 282 
U250190 T 0013 



START OF SEGMENT ********** 285 



CVN*?; PN0*125; VERIFY 



285 IS 7 LONG. NEXT SEG 28lT 

H250200 T 0014 



end; 



11250210 T 0016 
282 TS 19 LONG, NEXT 5£G 



10 



PROCEDURE P126; COMMENT 5.11,3,2 RECURSIVE PROCEDURES. CCZ* 11/28/62J 



H260010 T 0174 



BEGIN INTEGER M 



H260020 t ] 74 



REAL PRQCEOURE FACTORIAL (N); VALUE Nl INTEGER N* 



START OF SEGMENT ********** 2W 

U 2600 30 T 0000 



BEGIN FACTOHIAL * IF N = THEN 1 ELSE N* FACTORIAL* M-l ) ENO; 



9 

10 
11 
12 

13 

14' 

15 

16 

17 I 

18 

19 

20 * 

21 

22 

23 ( 

24 

25 

26 ( 

27 

26 

29 ( 

30 

31 

32 i 

33 

34 

35 i 

36 

37 

38 4 

39 

40 

4,1 

42 

43 

44 * 

45 

46 

47 \ 

48 

49 

50 i 

51 

52 

53 4 

54 

55 



U260040 t 0000 



• • 



N 

2 
3 



FOR I «■ 1 oTEP 1 UNTIL 10 UQ TEMPCI] «■ FACTOR I ALC 1 ) ; 



11260050 T 0006 



FILL ANS C*J WITH OCTl, 0CT2* 0CT6, UCT30, 0CTl7Q» OCTl3gO, 



U260060 T 0012 
START 6F SEGMENT ********** 287 



5 
6 
7 
8 
9 
10 
11 
12 



0CT11660' 0CT116600* OCT1304600* QCT1565740QJ 



11260070 T 0014 



cvn <• 10; 



PNO «■ 126; 



287 T S 10 LONG» NEXT 5£G 286 

U26QQ 8Q T OOU 

U260Q90 T 0015 



13 

14 
15 



VERIFY 
END* 



11260100 T 0016 
U260 110 T 0016 



16 
17 
18 



286 IS 19 LONG, NEXT SEG 



10 



19 

20 
21 



PROCEDURE P127; COMMENT 5.11.4 TYPED PROCEDURES* Ct ZETHRAEuS* U/29; 
BFGIN 



U2700l0 T 01?« 
11 270 2 T 01 74 



22 
23 
24 



26 
27 



REAL PROCEDURE RP(I); COMMENT RP= 4/ 



11270023 T 0i74 



INTEGER i; 



START OF SEGMENT ********** 288 
11270Q25 T 0000 



28 
29 
30 



BEGIN 



11270030 T 0000 



REAL X* Y, Li BOOLEAN 8 ; 



11270035 T 0~Q00 
START OF SEGMENT ********** 289 



31 
32 
33 



34 

35 

36 

37 " 

38 

39 



UI + 1; B*BUOLEAN(I. [44:13); IF nuT 3 THEN Z«-RP(I) + l; 



11270045 T 0000 



X*RP'*Y*Z + 1I 
ENOJ 



11270047 T 0006 
11270050 T QQ8 



40 
41 
42 



289 T S 12 lONG, NEXT SEG 288 



45 
46 
47 

48 

r— 
»9 

50 

51 

52 

53 

54 

55: 

56 



INTEGER PiOCEOURE IPU COMMENT IP1 « 6J 
BEGIN INTEGER i; 



H270060 T 0000 
U270070 T 0000 



START 0F SEGMENT ********** 290 



FOR' I* 1 STEP 1 UNTIL 6 DO IPl*i; 



end; 



11270080 T 0000 
11270095 T 0004 



290 T S 



7 LONG, NEXT SEG 288 



INTEGER PBUCEDURE \?2l COMMENT IP2 • 3i 
BEGIN LABEL Uli JWTEGER IPX* 



U270U0 T 0000 
11270120 T 0000 



55 
56< 

5} 



START OF SEGMENT ********** 291 



* • 



FOR IPXM STEP 1 UNTIL « DC IF IPX = 3 THE* GO TU LU 



9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 



s 

o 
Cs 

3' 



23 

24 

25 

26 

27 

28 

29 

30 

31 ~i 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 



43 



45 
46 
»7 
18 
49 
SO 
51 
52 
53 
54 



55 
56 



1 1 270 1 3C T 0000 



LI! IP2+IPX end; 



11270140 T 0004 
291 TS 9 LONG, NEXT SEG ?_a 



INTEGER i; 



l*-Q» 



11270145 T 0000 



_TEMPCi)*RP(Z)i TEMPt21*IPi; TEMP[ 3 3*IP2i" 
FILL ANS[*3 WITH QCT17* 0CT1* 0CT3/ 



11270150 T 0000 
11270160 T 0007 



START BF SEGMENT ********** 292 



CVN » 3i 



PNG «- I'll, 



VERIFY 



end; 



292 78 3 LONG, NEXT SEG 288 

11270170 T 0009 

1127018C T 0010 

________ ___ 

11270200 T 0011 . 



288 iS 14 LONG, NEXT SEG 



10 



PROCEDURE Pl2a; COMMENT 5,11 PROCEDURE wEB, C.ZEThREAUS, TUWT&i 
BEGIN PROCEDURE W66* TEMP. 13 «■ TEMPMT »1# 



H280010 T 0i74 
11280020 T 0174 



PROCEDURE W56; W66J 
PROCEDURE W/46/ W56' 



U28003C T 0003 
11280040 T 0005 



PROCEDURE W36> W46; 

procedure W26; w3g; 



Il2e0050 T 0006 
11280060 T 0007" 



PROCEDURE Wife; W2&; 



U280070 T 0008 



PROCEDURE W65; BEGIN fc66; W56 END; 
PROCEDURE w55; BEGIN «65; w56; W46 EnO; 
PROCEDURE W45; BEGIN W55; W46; W36 ENOJ 



11280080 T 0009 
U280090 T 0010 



U280i00 T 0013 



PROCEDURE «N35; BEGIN W45; W36; W26 END; 



H280H0 T 0016 



PROCEDURE W25; BEGIN w35; W26; Wi6 END; 
PROCEDURE wis; BEGIN K25J W16 ENOJt 



11280120 y 0019 
U280130 T 0022 



PROCEDURE W64; BEGIN W65; *55 END; 



11280140 T 0024 



PROCEDURE W54; BEGIN W64; W55i W45 END; 



PROCEQURE W44J BEGIN W54J W45; W35 END; 

PROCEDURE W34; BEGIN K44i W35; W25 END; 



11280150 t &026~ 
11280160 T 0029 



1 
2 
3 
4 
5 

6 
7 
8 
9 

10 
11 
12 



t 



START OF SEGMENT ********** 293 



13 

14 < 

15 

16 

,7l 

18 

19 

20 I 

21 

22 

23 * 

24 

26 

26 4 

27 

28 

29 ( 

30 

31 

32 ( 

33 

34 

35 < 

36 

37 

38 ( 

39 

40 

4,1 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

5? 



_ 



11280170 T 0032 



^r 



PROCEDURE *24; BEGIN WJ4; W25> M5 END; 



11280180 T 0035 



PROCEDURE WH; BEGIN K24; WIS END; 
PROCEDURE W63; BEGIN W64; W54 ENp; 



11280190 t 0038 
11280200 T 0040 



PROCEDURE W53; BEGIN W63; W54; Wa4 END; 



H28021Q T 0042 



PROCEDURE W43; BEGIN W53; W44; W34 END; 
PROCEDURE H33; BEfifN W431 W34; W94 END; 



11280220 t °045 
11 28 02 3 T 0048 



10 
11 
12 

13 

14 
15 



PROCEDURE W23; BEGIN *33l W24; W14 END; 



11280240 T 0051 



PROCEDURE W13; BEGIN W23; W14 END; 
PROCEOURE W62; BEGIN W631 W53 END; 



11280250 f 0054 
11280260 T 0056 



16 
17 
18 
19 
20 



PROCEDURE «52; BEGIN W62; W53; W43 END; 



1J280270 T 0058 



PROCEDURE W42; BEGIN ^2i W43; W33 END; 
PROCEDURE *3 2 ; BEGIN W42* W331 W23 £Np; 



11280280 T O06T 
11280290 T 0Q64 



22 

23 
24 
25 
26 
27 
28 
29 



30 
31 
32 
33 



34 
35 



36 

37 " 

38 

39 

40 

41 

42 

43" 



K 
46 
»7 
18 



49 
SO 



51 
52 



53 
54 



55 
56 



PROCEDURE ^22; BEGIN *32; W23; W13 END; 



11280300 T 0067 



PROCEDURE M2; BEGIN W22; W13 END; 
PROCEDURE W6i; BEGIN H621 W52 ENp; 



U280310 T 0070 
11280320 T 00?2 



PROCEDURE W5i; BEGIN *6i; w52; W42 END; 



H280330 T 0074 



PROCEOURE Mi; BEGIN W5i; W42; *32 ENQ1 
PROCEDURE W3t; BEGIM Ml# W32; W22 ENo; 



H280340 T 0077 
11280350 T 0080 



PROCEDURE W2i; BEGIN W3i; W22; Wi2 END; 



11280360 T 0083 



PROCEDURE Hill BEGIN W211 fcl2 END; 

w 1 1 ; 



11280370 T 0086 
11280380 T 0088 



FILL ANSC*J WITH 0CT353141 



11280390 t 0089 



START BF SEGMENT ********** g94 
294 T S 1 LONG* NEXT S£G 293 



CVN*11 PN0«-128# VERIFY 



U280400 j 0091 



£KQ* 



11280410 T 0093 
293 TS 94 LONG, NEXT SEG 10 



PROCEDURE P13i; COMMENT STREAM ELSE STATEMENT 5,12,13,1 9/4/63 ; 



11310010 T 0174 



BEGIN 

BOOLEAN TRU/FLS1 



U310020 T 0174 
11310030 T 0174 



START OF SEGMENT ********** 295 



55 

56< 
57. 



INTEGER TOGTi 



>l 



10 
11 

12 
13 



e 

O 

Q 

2 



| 14 

15 
16 

18 

19 
| 20 

21 

22 
) 23 

24 

25 
| 26 

27 

28 

> »' 
30 

31 ~ 
} 32 

33 

34 
} 35 

36 

37 ~~ 

) M 

39 

♦0 
I 41 

42 

43 ~ 
! 44 

45 

46 
t 47 

48 

♦9 
SO 
51 
52 
53 
54 
55 
56 



-",>,. 



STREAM PROCEDURE THENELSEC rA*TB,TC»TQ>TE#TF,TG,TH,TI,T^TK;" 
TQGT*TRU#FLS?; 



VALUE TOGT*TKU,FLS; 



8ESIN 

LOCAL IV 



LABEL Ll*L2,L3»Li»/L5#L6vL7vL8»L9*Ll0#Hl*Ll2#Ll3; 



COMMENT SET TOGGLE TRUE f 

si » loc togt; oi » loc ti; os » i wos ; oi «■ pim; 

S'l «■ Sl-i; 



comment test then stmt is executep*else stmt is IGNORED' 

IF 1 SC a DC THEN GO TO Ll ELSE GO TO L2J 



si * iuc tku; oi <- tb; ds 4. 1 wos; 



li: si «■ loc tru; oi * ta; ds * 1 wos; go to l3T 

L2» SI » LOC FtSJ 01 » TAj DS * 1 WQSJ 



u'3* IF TOGGLE THEN BEGIN SI «■ LOC TRU; 01 * Tc; DS «■ 1 WDS 



END 



ELSE GO TO L4 I GO TO L5i 



L4* Si «- L.OC FLS; DI «■ TC; DS ♦■ 1 WDS; 
LS« IF TOGGLE THEN TALLY «■ TOGT 



ELSE TALUY * FLSJ 



Ti «■ tally; Si «• uoc Ti; oi *■ To; DS * I *ds; 



COMMENT TtST THEN STMT Is IGNORED* ELSE STMT 1$ EXECUTE^ 

sj » lQc togt; qi «• loc fls; if a sc « dc 



THEN TALLY «• FLS 



ELSE TALLY <• INU; 



Tl «> TALLYjSl » LQC Tj| 01 » TEj pS » 1 WpS; 

S'l «• LOC TRu; DI * TF; OS «• l WDS; 

iF TUQttLE THEN BE64N Si * IOC FLSJ 01 ♦ TGI US ♦ I «US 



ELSE GO TO L 6J 



11310040 T 0000 



U310050 T 0000 
11310060 T 0000 



1 13J00/0 T 0000 



litiooao t oooo 

11310090 T 0000 



U3lOiO0 T 0000 



11310110 T OfOG 
11310120 T 0000 



H310130 T 0001 



U3t0l40 T 0001 
11310150 T OQOl 



11310160 T 0002 



11310170 t 0003 
11310180 T 0005 



1 1 3 10 1 90 T 0005 



11310200 T 0007 
11310210 T 0007 



U310220 T 0008 



H31023Q T 0009 
.113108*0 T 0011 



11310250 T 0012 



11310260 T 00*3 
U310270 T 0013 



11310280 T 0013 

H310290 t vonr 



11310300 T 0015 



11310310 T 0016 
11310320 T 0017 
1131033G T 0019 



i 

i 



9 
10 
111 
12 
13 
14 I 
15 
16 
.7 I 
18 
19 
20 I 
21 
22 



23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 < 

36 

37 

38 I 

39 

40 

4, < 

42 



• 



43 

44 ' 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 



m 



11310340 T 0019 



h 



10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 



21 
22 
23 
24 



5 

"ft 

gl 

i 

o 
Q 



25 

26 
27 
28 
29 

30 

31 ~ 
32 
33 



34 
35 



36 
37 " 



38 
39 



40 
41 
42 
43 



45 
46 
47 
48 
49 
SO 
51 
52 
53 
S4 
55 
56 
67 



Si «• LUC TRU> DI * TMj DS ♦• 1 WQS; GO TO I? } 



L6i si <• loc tru; DI *■ tg; DS ♦• i wds; 

171 IF TOGGLE THEN GO TO L6 



ELSE BEGIN SI * LOC THU; DI ♦ Tj; US «- i wQS 



END* GO TO L8J 
SI «• LOC TRUj DI » TJ; DS «• 1 WQSj 



L8» IF TOGGLE THEN GO TO 1,10 



ELSE BEGIN 

TALLY » FLSJ 



SC IF TOGGLE THEN GO TO L12 



ELSE BEGIN 

IF TOGGLE THEN GO TO L13 



ELSE 



TALLY «• THU/ 
JUMP OUT ; 



end; 



L12< TALLY * FLSl JUMP QuT; 
L13» TALLY » TQGT; JUMP QUTJ) 



ENDi 



L9» ti * tally; si * LUC fp DI «■ tk; DS «. 1WDS t 

GO TQ Lli; 



Lie: TALLY «■ FLS ; GO TO L?J 



Lll« END THENELSt; 

tru * true; 



fls «• false; 



togt ♦ «; 



THENELSE <TEMPCl3»TEMPC23»TEMPE33»TEMPC43#TEMPC53* 



rE M Ptfl]#TEMPC73»TEMPC83#T£MPt93*TEMPCl03#TEMPLll3» 
TQGT»TKU»n.5); 



11310350 T 0019 



11310360 T 0020 
11310370 T 0021 



11310380 T 0022 



11310390 T 0023 
11310400 T 0023 



11310410 T 0024 



11310.520 T 0025 
Il3l0fl40 T 0025 



H310450 T 0026 



U310460 T 0027 
U3lO«70 T 0027 



H31O500 t 0028 



11310510 T 0028 
11310520 T 0029 



11310530 7 0029 



11310540 T 0029 
11310550 T 0031 



11310560 T 0033 



U310570 T 0034 
11310580 T 0035 



U310590 t 0035 



11310600 T 0037 
11311000 T 0037 



11311010 T 0038 



11311020 T 0039 
U311030 T 0040 



U3H040 T 0045 



FILL ANSC+3 WITH QCT1* QCTO* QCTl* 0CT1.W QCT1> 0CT1> 



11311041T OOTT 
U311Q50 T 00S3 



start of segment ********** 29t> 



"J* 

H 

3 

4 
M 

6 

7 

M 

9 

10 

"I 

12 

13 

"I 

15 

16 

"I 

18 

19 

20 I 

21 

22 

23 

24 

25 

26 

27 



28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 { 

39 



• 
• 



40 
41 I 

42 

43 

44 ( 

45 

46 

47 i 

48 

49 

50 ( 

51 

52 

53 f 

54 

55 

56 ' 

5?, 



2 



0CT1* CCTO* OCT1* CCTO* UCTi; 



11311060 T 0054 



cvn «• n ; 



296 T S 11 LONG* NEXT SfQ 295 
11311Q7Q T 0054 



pno «■ i3i; 



11311080 T 0055 



VERIFY 
EKO P131 } 



U311090 T 0056 
U31H00 T 0056 



10 

11 

12 



295 



59 LONG* NEXT $EG 



10 



13 
14 
IS 



16 
17 
18 



19 
20 
21 



22 
23 
24 



25 
26 
27 
28 
29 
30 



Pi 

±2. 



19990010 T 0174 
19990020 T 0l74 



P3 



P4 
P5 



P6 



P7 / 
_P_S L 



19990030 T 0175 



199900*0 T 0J75 
19990050 T 0176 



19990060 T 176 



19990070 T 0177 
19990090 T 0177 



PlO 



19990100 T 0178 



31 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 



Pll i 

P12 ; 



Pi3 ; 
Pi4 i 
pis ; 



19990110 T 0178 
19990120 T 0l79 



19990130 T 0l79 



19990140 T OTeO" 
19990150 T 0180 



Pj,6 



19990160 T 0181 



Pi7 ; 
Pis ; 



19990170 t OTeT 
19990180 T 0182 



46 
47 



Pl9 



19990190 T 0182 



49 
50 



P2i ; 

P22 ; 



19990210 T 0*83 
19990220 T 0183 



52 
53 
54 



P23 



19990230 T 0184 



56 
56 



P24 > 
P25 ; 



19990240 T 0184 
199902!|0 T 0185 



P?6 



19990260 T 0185 



P27 ; 



2 



4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 



39 
40 
41 
42 



46 
47 



P28 J 

Peg i 



P30 



P31 ; 

P32 ; 



P33 



P34 i 

P35 ; 



P36 



P37 ; 
P38 ; 



P39 



P40 ; 
p«i ; 



P42 



P4 3 i 

Pan } 



P45 



Put ; 
P47 ; 



PtiQ 



Pso ; 



111. 



50 



P55 ; 



52 

53 



P57 



P60 i 
P74 ; 



55 
56 



P75 ; 



19990?70 T 0i86 



19990280 T 0l86 
19990?90 T 0187 



19990300 T 0187 



19990310 T 0i88 
1 9990 320 T 0188 



19990330 y 0i89 



19990 340 T Ql89 
19990350 T 0190 



19990360 T 0l90 



19990370 T 0l9l 
1999 039 T 0191 



19990390 T °192 



19990400 T 0192 
1 99904 10 T 0^93 



19990420 T °193 



19990430 T Oi94 
19990440 T 0194 



19990450 T 0195 



19990460 T 0195 
19990470 T 0196 



19990480 T 0196 



19990500 T 0197 
19990510 T 0197 



19990520 T 0198 



19990530 T 0198 
19990550 T 0l98 



19990570 T 0l98 



49990600 T 0199 
19990740 T 0l99 



19990750 T 0200 



V7bi 






1 

2 
3 
4 
S 
6 
7 
8 
9 
10 
11 
12 



13 
14 
16 
16 



17 
IB 
19 
20 
21 
22 



23 
24 
25 
26 



27 
28 



29 

30 



31 
32 



33 

34 

36 

36 

37 ~ 

38 



39 
40 
41 
42 
43 
44 
45 



16 
47 
W 
49 
50 
51 



52 
53 



54 

55 



*L- 



Pre ; 
P79; 



Peo 



pel ; 
P9i ; 



P94 



P95 i 
P96 ; 



P97 



P98 * 

P99 ; 



PlOO. 



P101; 
P102; 



P103; 



Pioft; 
P105; 



P106. 



Pi07; 
Pioe; 



P109; 



P110; 
Pin; 



P112; 



Pin; 
pus; 



pi 16; 



.P117I 



P119; 



19990760 T 0200 



19990780 T 0201 
19990790 T 020l 



19990800 T 0202 



19990810 T 0202 
19990910 T 0203 



19990940 T 0203 



19990950 T ■■'.0204, 
19990960 T 020ft 



19990970 T O2O5 



19990980 T 0205 
19990990 T 0206 



19991000 T 0206 



19991010 T 0207 
19991020 T 0207 



19991030 T 0208 



19991040 T 0208 
19991050 r 0209 



19991060 t 0209 



19991070 T 0210 
19991080 T 0210 



19991090 T 0211 



19991100 T 0211 
19991U0 T 0212 



1999U2C T 0212 



19991130 T 0~213" 
1999U50 T 0213 



1999H60 T 0214 



19991170 T 0214 
1999U8Q T 0215 



r 

2 

3 
4 
5 

6 
7 
8 
9 

10 
11 
12 



• 
• 



13 

,4l 

15 

16 

17 I 

18 

19 

20 I 

21 

22 

23 I 

24 

25 

26 

27 

28 

29 < 

30 

31 

32 I 

33 

34 

35 I 

36 

37 

38 I 

39 

40 

41 I 

42 

43 

44 ( 

45 

46 



47 

48 

49 

50 ' 

51 

52 

53' 

54 

55 

56 I 

57 



19991190 T 0216 



P120; 



19991200 T 0216 



2 
3 

4 
5 
6 
7 
8 
9 
10 
11 
12 



P\2li 
P122J 



1999X210 T 0217 
1 9991 22 T 0216 



P123; 



19991230 T 0219 



P124; 

Pl2£>> 



19991240 T 0219 
19991P50 T 0220 



P126; 



19991260 T 0221 



13 

14 

rts 



P127; 
Pi28; 



19991270 T 0222 
19991 28 T 02 2 2 



16 
17 
18 



Pi3i; 



19991310 T 0223 



19 
20 
21 
22 
23 
24 
25 
26 



END 
E NO . 



19999998 T 0224 

19999999 T 0224 



10 t s 229 LONG* NEXT SfcG 



2 t§ 28 LONG, NEXT SEG 1 
1 yS 2 LON G * N EXT S E 6 p_ 



28 
29 
30 



308 fS 69 LONG* NEXT SEG 



31 
32 
33 
34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 " 

44 

45 

48 
47 
«8 
49 
50 
51 
52 
53 
54 
55 
56 



NUMBER OF ERRORS DETECTED a 0. COMPILATION TIME s 766 SECONDS. 

PRT SIZE « 629; TOTAL SEGMENT SUE ■ 11354 y^CRDSj DISK SUE ■ 720 SEGs; NO. PGM. sEGS = 3C8 



ESTIMATED CORE STORAGE REQUIRED = 12291 WORDS, 
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